
PRO7000 DC Motor Operator 

Manual forces, automatic limits 

New learn switch for learning the limits 

Code based on Flex GDO 



Notes : 



Motor is controlled via two Form C relays to control direction 

— Motor speed is controlled via a fet (2 IRF540 , s in parallel) with a 

phase control PWM applies. 

— Wall control (and RS232) are P98 with a redundant smart button and 

command button on the logic board 



Flex GDO Logic Board 

Fixed AND Rolling Code Functionality 
Learn from keyless entry transmitter 
IM Posi-lock 

Turn on light from broken IR beam (when at up limit) 
Keyless entry temporary password based on number of hours or number 
of activations. (Rolling code mode only) 

GDO is initialized to a 'clean slate 1 mode when the memory is erased. 
In this mode, the GDO will receive either fixed. or rolling codes. 
When the first radio code is learned, the GDO locks itself into that 
mode (fixed or rolling) until the memory is again erased. 



Rolling code derived from the Leaded6"7 code 

Using the 8K zilog 233 chip 

Timer interrupt needed to be 2X faster 



Revision History 



Revision 1.1: 

-- Changed light from broken IR beam to work in both fixed and rolling 
modes . 

Changed light from IR beam to work only on beam break, not on beam 
block. 

Revision 1.2: 

-- Learning rolling code formerly erased fixed code. Mode is now 
determined by first transmitter learned after radio erase. 

Revision 1.3: 

— Moved radio interrupt disable to reception of 20 bits. 

-- Changed mode of radio switching. Formerly toggled upon radio error, 

now switches in pseudo-random fashion depending upon -value of 

125 ms timer. 

Revision 1.4: 

-- Optimized portion of radio after bit value is determined. Used 
relative addressing to speed code and minimize ROM size." 

Revision 1.5: 

Changed mode of learning transmitters. Learn command is now 
light-command, learn light is now light-lock, and learn open/close/ 
stop is lock -command. (Command was press light, press command, 
release light, release command, worklight was press light, press command, 
release command, release light, o/c/s was press lock, press command, 
release command, release lock. This caused DOG2 to reset) 
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Revision 1.6: 

— Light button and light transmitter now- ignored during travel. 
Switch data cleared only after a command switch is checked. 

Revision 1.7: 

— Rejected fixed mode (and fixed mode test) when learning light and 
open/close/stop transmitters. 

Revision 1.8: 

— Changed learn from wall control to work only when both switches are 
held. Modified force pot. read routine (moved enabling of blank 
time and disabling of interrupts) . . Fixed mode now learns command 
with any combination of wall control switches. 

Revision 1.9: 

— Changed PWM output to go from 0-50% duty cycle. This eliminated the 
problem of PWM interrupts causing problems near 100% duty cycle 
THIS REVISION REQUIRES A HARDWARE CHANGE. 

Revision 1.9A: 

— Enabled ROM checksum. Cleaned up documentation. 
Revision 2.0: 

— Blank time noise immunitity. if noise signal is detected during blank time the data 
already recieved is not thrown out. The data is retained, and the noise 
pulse is identified as such. The interrupt is enabled to contine to look 
for the sync pulse. 

Revision 2. OA: 

! H ° n tne event that tn <* noise pulse is of the same duration as the sync pulse, 

the time between sync and first data pulse (inactive time) is measured. The 
5 inactive time is 5.14ms for billion code and 2.4ms for rolling code. If it is 

\^ determined that the previously received sync is indeed a noise pulse, the pulse 

M is thrown out and the micro continuies to look for a sync pulse as in Rev. 2.0. 

'P 

111 Revision 2.1: 

— To make the blank time more impervious to noise, the sync pulses are 
differentiated between. Fixed max width is 4.6ms, roll max width is 2.3ms. 
This is simular to the inactive time check done in Rev. 2. OA. 



.* :s 



Revision 2.2: 

— The worklight function; when the IR beam is broken and the door is at the up limit 
the light will turn on for 4.5 min . This revision allows the workliaht function to 
be enabled ana disabled by the user. The function will come enabled"f rom the factory. 
To disable, with the light off press and hold the light button for 7 sec. The light will 
come on and after l sec. the function is disabled the light will turn off. To enable the 
function, turn the light on, release the button, then press and hold the light button 
down for l sec. The light will turn off and after the function has been enable in 1 sec 
the light will turn on. 

Revision 3.0: : 
Integrated in functionality for Siminor rolling code transmitter. The Siminor 
transmitter may be received whenever a C code transmitter may be received. 
Siminor transmitters are able to perform as a standard command or as a light 
control transmitter, but not as an open/close/stop transmitter. 

Revision 3.1: 

-- Modified handling of rolling code counter (in mirroring and adding) to improve 
efficiency and hopefully kill all short cycles when a radio is jammed on the 
air. 



PRO7000 



Revision 0.1: 

-- Removed physical liirdt tests 

— Disabled radio temporarily 

— Put in sign bit test for limits 

— Automatic limits workinc 
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Revision 0.2: 

— Provided for traveling up when too close to limit 
Revision 0.3: 

— Changed force pot. read to new routine. 

— Disabled Tl interrupt and all old force pot. code 

— Disabled all RS232 output 

Revision 0.4: 

— Added in (veerrrry) rough force into pot. read routine 
Revision 0.5: 

— Changed EE PROM in comments to add in up limit, last operation, and 
down limit. 

Created OnePass register 

— Added in limit read from nonvolatile when going to a moving state 
-- Added in limit read on power-up 

-- Created passcounter register to keep track of pass point (s) 

Installed basic wake-up routine to restore position based on last state 

Revision 0.6: 

-- Changed RPM time read to routine used in P98 to save RAM 
Changed operation of RPM forced up travel 
»y implemented pass point for one-pass-point travel 

m 

,c Revision 0.7: 

jss: Changed pass point from single to multiple (no EE PROM support) 

*fj Revision 0.8: 

!□ — Changed all SKIPRADIO loads from OxFF to NOEECOMM 
j=£ Installed EEPROM support for multiple pass points 

J— Revision 0.9: 

*~ ~~ Changed state machine tc handle wake-up (i.e. always head towards 
■== the lowest pass point to re-orient the GDO) 

!U 

Ul Revision 0.10: 

;2 — Changed the AC line input routine to work off full-wave rectified 
*AC coming in 

Revision 0.11: 

— Installed the phase control for motor speed control 
Revision 0.12: 

-- Installed traveling down if too near up limit 
-- Installed speed-up when starting travel 
— ' Installed slow-down when ending travel 

Revision 0.13: 

-- Re-activated the C code 

Revision 0.14: 

-- Added in conditional assembly for Siminor radio codes 
; Revision 0.15: 

r -- Disabled old wall control code 

r — Changed all pins to conform with new layout 

— Removed unused constants 

; — Commented out old wall control routine 

; — Changed code to run at 6MHz 

r Revision 0.16 

- — Fixed bugs in Flex radio 

r Revision 0.17 

-- Ee -enabled eld wail centre! . Changed command charging time to 12 ms 
to fix FMEA problems with IR protectors. 

r Revision 0.18 
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— Turned on learn switch connected to EE PROM clock line 
Revision 0.19 

— Eliminated unused registers 

Moved new registers out of radio group 

— Re-enabled radio interrupt 

Revision 0.20 

-- Changed limit test to account for "lost" position 

— Re-wrote pass point routine 

Revision 0.21 

— Changed limit tests in state setting routines 

— Changed criteria for looking for lost position 

— Changed lost operation to stop until position is known 

Revision 0.22: 

— Added in L_A_C state machine to learn the limits 

Installed learn-command to go into LAC mode 
Added in command button* and learn button jog commands 
_ -- Disabled limit testing when in learn mode 

(□ Added in LED flashing for in learn mode 

iQ — Added in EVERYTHING with respect to learning limits 

;~ -- NOTE: LAC still isn't working properly!!! 

;P Revision 0.23: 

l=f — Added in RS232 functionality over wall control lines 



Revision 0.24: 

Touched up RS232 over wall control routine 

— Removed 50Hz force table 

-- Added in fixes to LAC state machine 

Revision 0.25: 

— Added switch set and release for wall control (NOT smart switch) 
into RS232 commands (Turned debouncer set and release in to subs) 

-- Added smart switch into RS232 commands (smart switch is also a sub) 

— Re-enabled pass point test in 1 : • RS232 command 
-- Disabled smart switch scan when in RS232 mode 

-- Corrected relative, references in debouncer subroutines 

— RS232 1 F 1 commend .still needs to be fixed 

Revision 0.26: 

Added in max. force operation until motor ramp-up is done 

— Added in clearing of slowdown flag in set_any routine 

— Changed RPM timeout from 30 to 60 ms 

Revision 0.27: 

— Switched phase control to off, then on (was on, then off) inside 
each half cycle of the AC line (for noise reduction) 

— Changed from 40ms unit max. period to 32 (will need further changes) 
-- Fixed bug in force ignore during ramp (previously jumped from down to 

up state machine ! ) 

— Added in complete force ignore at very slow part of ramp (need to change 
this tc ignore when very close to limit) 

— Removed that again 

— Bug fix — changed force skip during ramp-up. Before, it kept counting 
down the force ignore timer. 

Revision 0.28: 

— Modified the wall control documentation 

-- Installed blinking the wall control on an IR reversal instead of the 
worklight 

— Installed blinking the wail control when a pass point is seen 
Revision 0.29: 

— Changed max. RPM timeout to 100 ms 
-- Fixed wall control blink bug 

— Raised minimum speed setting 
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NOTE: Forces still need to be set to accurate levels 

* 

Revision 0.30: 

— Removed ' ei* before setting of peon register 

— Bypassed slow-down to limit during learn mode 

; Revision 0.31: 

— Changed force ramp to a linear FORCE ramp, not a linear time ramp 
— Installed a look-up table to make the ramp more linear. 

— Disabled interrupts during radio pointer match 

/* ~ _ Changed slowdown flag to a up-down-stop ramping flag 

Revision 0.32: 

Changed down limit to drive lightly into floor 

— Changed down limit when learning to back off of floor a few pulses 

; Revision 0.33: 

— Changed max. speed to 2/3 when a short door is detected 

Revision 0.34: 

— Changed light timer to 2 . 5 minutes for a 50 Hz line, 4.5 minutes for 

a 60 Hz line. Currently, the light timer is 4.5 minutes WHEN THE UNIT 
FIRST POWERS UP. 

'"!.¥ ~~ Fixed Problem with leaving RP set to an extended group 

\E Revision 0.35: 

— Changed starting position of pass point counter to 0x30 

Revision 0.36: 

— Changed algorithm for finding down limit to cure stopping at the floor 
during the learn cycle 

— Fixed bug in learning limits: Up limit was being updated from EE PROM 
;],_ during the learn cycle! 

— Changed method of checking when limit is reached: calculation for 
; : p distance to limit is now ALWAYS performed 

'1|J — Added in skipping of limit test when position is lost 

f.U Revision 0.37: 

3sJ — Revised minimum travel distance and short door constants to reflect 
approximately 10 RPM pulses / inch 

Revision 0.38: 

~~ Moved slowstart number closer tc the limit. 
-- Changed "backoff number from 10 to 6 

Revision 0.39: 
; — Changed backoff number from 8 to 12 

Revision 0.40: 
'* — Changed task switcher to unburden processor 

; Consolidated tasks 0 and 4 

— Took extra unused code out of tasks 1, 3, 5, 7 . 
Moved aux light and 4 ms timer into task 6 

— Put state machine into task 2 only 

— Adjusted auto_delay f motdel, rprn_time_out , f orce_ignore , motor_timer, 
obs_count for new state machine tick 

— Removed force_pre prescaler (no longer needed with 4ms state machine) 
— Moved updating of obs_count to one ms timer for accuracy 

Changed autoreverse delay timer into a byte-wide timer because it was 
only storing an 8 bit number anyways... 

Changed flash delay and light timer constants to adjust for 4ms tick 
Revision 0.4 1 

— Switched back to 4MHz operation to account for the fact that Ziloa's 
286733 OT? won't run at 6MHz reliably 

* 

Revision 0.42: 

— Extended RPM timer so that it could measure from 0 - 524 ms with 
a resolution of 8us 
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Revision 0.43: 

— Put in the new look-up table for the force pots (max RPM pulse period 
multiplied by 20 to scale it for the various spe ds) . 

— Removed taskswitch because it was a redundant register 
-- Removed extra call to the auxlight routine 

— Removed register 'temp' because, as far as I can tell, it does nothing 

— Removed light_pre register 

— Eliminated 'phase* register because it was never used 

— Put in preliminary divide for scaling the force and speed 

— Created speedlevel AND IDEAL speed registers, which are not yet used 

Revision 0.47: 

— Undid the work of revisions 0.44 through 0.4 6 

— Changed ramp-up and ramp-down to an adaptive ramp system 

— Changed force compare from subtract to a compare 

— Removed force ignore during ramp (was a kludge) 

— Changed max. RPM time out to 500 ms static 

— Put WDT kick in just before main loop 

— Fixed the word-wise T0EXT register 

— Set default RPM to max. to fix problem of not ramping up 

Revision 0.46: 

— Took out adaptive ramp 

— Created look-ahead speed feedback in RPM pulses 

Revision 0.49: 

Removed speed feedback (again) 

NOTE: Speed feedback isn't necessarily impossible, but, after all my 
efforts, I've concluded that the design time necessary (a large 
amount) isn't worth the benefit it gives, especially given the 
current time constraints of this project. 

— Removed RPM_SET_DIFF lo and hi registers, along with I DEAL_S PEE D lo 
and hi registers (only need them for speed feedback) 

— Deleted speedlevel register (no longer needed) 

— Separated the start of slowdown for the up and down directions 

— Lowered the max. speed for short doors 

— Set the learn button to NOT erase the memory when jogging limits 
Revision 0.50: 

— Fixed the force pot read to actually return a value of 0-64 

— Set the msx. RPM period time out to be equivalent to the force setting 

Revision 0.51: 

-- Added in P2M_SHADOW register to make the following possible: 
Added in flashing warning light (with auto-detect) 

Revision 0.52: 

Fixed the variable worklight timer to have the correct value on 
power-up 

— Re-enabled the reason register and stackreason 

— Enabled up limit to back off by one pulse if it appears to be 
crashing the up stop bolt. 

— Set the door to ignore commands and radio when lost 

— Changed start of down ramp to 220 

— Changed backoff from 12 to 9 

— Changed drive-past of down limit to 9 pulses 
Revision 0.53: 

— Fixed RS232 '9' and ■ F' commands 

— Implemented RS232 *K' command 

-- Removed ' M ' , ' P ' , and ' S ' commands 

— Set the learn LED to always turn off at the end of the 
learn limits mode 

Revision 0.54: 

— Reversed the direction of the pot. read to correct the direction 
of the min. and max. forces when dialing the pots. 

— Added in "U" command (currently does nothing) 
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— Added in W V" command to read force pot. values 
Revision 0.55: 

Changed number of pulses added in to down limit from 9 to 16 
Revision 0.56: 

— Changed backoff number from 16 back to 9 (not 8!) 

— Changed minimum force/speed from 4/20 to 10/20 

Revision 0.57: 

— Changed backoff number back to 16 again 

-- Changed minimum force/speed from 10/20 back to 4/20 

— Changed learning speed from 10/20 to 20/20 

Revision 0.58: 

— Changed learning speed from 20/20 to 12/20 (same as short door) 

— Changed force to max. during ramp-up period 

— Changed RPM timeout to a static value of 500 ms 

-- Changed drive-past of limit from 1" to 2" of trolley travel 
(Actually, changed the number from 10 pulses to 20 pulses) 
Changed start of ramp-up from 1 to 4 (i.e. the power level) 
(3 — Changed the algorithm when near the limit — the door will no 
longer avoid going toward the limit, even if it is too close 

1 far 

Revision 0.59: 
s H Removed ramp-up bug from autoreverse of GDO 

ir% Revision 0.60: 

;~ — Added in check for pass point counter of -1 to find position when lost 

j^f — Change in waking up when lost. GDO now heads toward pass point only on 
^ first operation after a power outage. Heads down on all subsequent 

i operations. 

O created the "limits unknown" fault and prevented the GDO from traveling 

P when the limits are not set at a reasonable value 

Jf! — Cleared the fault code on entering learn limits mode 

id — Implemented RS2 32 • H f command 

j~j Revision 0 . 61 : 

|7_ ~- Changed limit test to look for trolley exactly at the limit position 
"~~ Changed search for pass point to erase- limit memory 

-- Changed setup position to 2" above the pass point 
-- Set the learn LED to turn off whenever the L_A_C is cleared 

— Set the learn limits mode to shut off whenever' the worklight times out 

Revision 0 . 62 : 

— Removed test for being exactly at down limit (it disabled the drive into 
the limit feature) 

— Fixed bug causing the GDO to ignore force when it should autoreverse 

— Added in ignoring commands when lost and traveling up 

Revision 0.63: 

— Installed MinSpeed register to vary minimum speed with force pot 
setting 

— Created main loop routine to scale the min speed based on force pot. 
-- Changed drive-past of down limit from 20 to 30 pulses (2" to 3") 

Revision 0 . 64 : 

Changed learning algorithm to utilize block. (Changed autoreverse to 
add in 1/2" to position instead of backing the trolley off of the floor) 

— Enabled ramp-down when nearing the up limit in learn mode 

Revision 0.65: 

Put special case in speed check to enable slow down near the up limit 
Revision 0 . 66 : 

— Changed ramp-up: Ramping up of speed is now constant — the ramp-down 
is the only ramp affected by the force pot. setting 

— Changed ramp-up and ramp-down tests to ensure that the GDO will get U? 
to the minimum speed when we are inside the ramp-down zone (The above 
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change necessitated this) 

— Changed down limit to add in 0.2" instead f 0.5" 

R vision 0. 67 : 

— Removed minimum travel test in set_arev_state 

— Moved minimum distance of down limit from pass point from 5? to 2" 

— Disabled moving pass point when only one pass point has been seen 

Revision 0.68: 

— Set error in learn state if no pass point is. seen 
Revision 0.69: 

— Added in decrement of pass point counter in learn mode to kill bugs 
-- Fixed bug: Force pots were being ignored in the learn mode 

— Added in filtering of the RPM (RPM_ FILTER register and a routine in 
the one ms timer) 

— Added in check of RPM filter inside RPM interrupt 

— Added in polling RPM pin inside RPM interrupt 
Re-enabled stopping when in learn mode and position is lost 

Revision 0.70: 

™ — Removed old method of filtering RPM 

^ — Added in a "debouncer" to filter the RPM 
*D 

|g Revision 0.71: 

,E — Changed "debouncer" to automatically vector low whenever an RPM pulse 
;L is considered valid 

? Revision 0.72: 

f|3 — Changed number of pulses added in to down limit to 0. Since the actual 
f down - limit test checks for the position to be BEYOND the down limit 

[ this is the equivalent of adding one pulse into the down limit 

\d Revision 0.74: 

-P — Undid the work of rev. 0.73 

11} — Changed number of pulses added in to down limit to 1. Noting the comment 
j.l i* 1 rev. 0.72, this means that we are adding in 2 pulses 

;i? — Changed learning speed to vary between 8/20 and 12/20, depending upon 
M the force pot. setting 

Revision 0.75: 

— Installed power-up chip ID on F22, P23, P24, and P25 

Note: ID is on F24, P23, and P22 . P25 is a strobe to signal valid data 
First chip 1Z- is 001 (with strobe, it's 1001) 

— Changed set_any routine to re-enable the wall control just in case we 
stopped while the wall control was being turned off (to avoid disabling 
the wall control completely) 

— Changed speed during learn mode to be 2/3 speed for first seven seconds, 
then to slow down to the minimum speed to make the limit learning the same 
as operation during normal travel. 

Revision 0.76: 

— Restored learning tc operate only at 60% speed 
Revision 0.77: 

-- Set unit to reverse off of floor and subtract 1" of travel 

— Reverted to learning at 40% - 60% of full speed 

Revision 0.78: 

— Changed rampflag to have a constant for running at full speed 

— Us d the above change to simplify the force ignore routine 

— Also used it to change the RPM time out. The time out is now set equal 
to the pot setting, except during the ramp up when it is set to 500 ms . 

— Changed highest force pot setting to be exactly equal to 500ms. 

Revision 0.75: 

— Changed setup routine to reverse off block (y t again). Added in one pulse. 
Revision 1.0: 
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— Enabled RS232 version number return 

— Enabled ROM checksum. Cleaned up documentation 

Revision 1.1: 

— Tweaked light times for 8.192 ms prescale instead of 8.0 ms prescale 

— Changed compare statement inside setvarlight to 'uge* for consistency 

— Changed one-shot low time to 2 ms for power line 

— Changed one-shot low time to truly count falling-edge-to-falling-edge 
Revision 1.2: 

Eliminated testing for lost GDO in set_up_dir_state (is already taken 
care of by set_dn_dir_state ) 

— Created special time for max. run motor timer in learn mode: 50 seconds 

Revision 1.3: 

— Fixed bug in set_any to fix stack imbalance 
-- Changed short door discrimination point to 78" 

Revision 1.4: 

— Changed second 'di' to 'ei' in KnowSimCode 

— Changed IR protector to ignore for first 0.5 second of travel 
Changed blinking time constant to take it back to 2 seconds before travel 

— Changed blinking code to ALWAYS flash. during travel, with pre-travel flash 
when module is properly detected 

Put in bounds checking on pass point counter to keep it in line 

— Changed driving into down limit to consider the system lost if floor not seen 

;\Jl Revision 1.5: 

— Changed blinking of wall control at pass point to be a one-shot timer 
''1=1 to correct problems with bad passpoint connections and stopping at pass 

point to cause wall control ignore. 

i 

?3 Revision 1.6: 

,p Fixed blinking of wall control when indicating IR protector reversal 

iff to give the blink a true 50% duty cycle. 

n chan 9 ed blinker output to output a constant high instead of pulsing 

— Changed P2S_POR to 1010 (Indicate Siminor unit) 



Revision 1.7: 

Disabled Siminor Radio 

Changed P2S_POR to 1011 (Indicate Lift-Master unit) 

Added in one more conditional assembly point to avoid use of simradio label 
Revision 1.8: 

— Re-enabled Siminor Radio 

— Changed P2S_POR back to 1010 (Siminor) 

— Re-fixed blinking of wail control LED for protector reversal 

— Changed blinking of wall control LED for indicating pass point 
-- Fixed error in calculating highest pass point value 

— Fixed error in calculating lowest pass point value 

Revision 1.9: 

— Lengthened blink time for indicating pass point 

— Installed a max. travel distance when lost 

— Removed skipping up limit test when lost 

— Reset the position when lost and force reversing 
Installed sample of pass point signal when changing states 

Revision 2.0: 

— Moved main loop test for max. travel distance (was causing a memory 
fault before) J 

Revision 2.1: 

~ Changed limit test to use 11000000b instead of 10000000b to ensure 
only setting up limit when we're actually close. 

Revision 2.2: 

— Changed minimum speed scaling to move it further down the pot. rotation. 
Formula is now: ((force - 24) / 4) + 4, truncated to 12 
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— Changed max. travel test to be inside motor state machine. Max. travel 
test calculates for limit position differently when the system is lost. 

— Rev rted limit test to use 10000000b 

— Changed some jp's to jr's to conserve code space 

— Changed loading of reason byte with 0 to clearing of reason byte (very 
desperate for space) 

Revision 2.3: 

Disabled Siminor Radio 

— Changed P2S_POR to 1011 (Lift-Master) 

Revision 2.4: 

— Re-enabled Siminor Radio 

-- Changed P2S_POR to 1010 (Siminor) 

Changed wall control LED to also flash during learn mode 

— Changed reaction to single pass point near floor. If only one pass point 
is seen during the learn cycle, and it is too close to the floor, the 
learn cycle will now fail. 

-- Removed an ei from the pass point when learning to avoid a race condition 

Revision 2.5: 

-- Changed backing off of up limit to only occur during learn cycle. Backs 
off by 1/2" if learn cycle force stops within 1/2" of stop bolt. 

— Removed considering system lost if floor not seen. 
-- Changed drive-past of down limit to 36 pulses (3") 

Added in clearing of power level whenever motor gets stopped (to turn off 
the FET's sooner) 

-- Added in a 40ms delay (using the same MOTDEL register as for the traveling 
states) to delay the shut-off of the motor relay. This should enable the 
motor to discharge some energy before the relay has to break the current 
flow) 

— Created STOPNOFLASH label -- it looks like it should have been there all along 
-- Moved incrementing MQTDEL timer into head of state machine to conserve space 

Revision 2.6: 

— Fixed back-off of up limit to back off in the proper direction 

Added in testing for actual stop state in back-off (before was always backing 
off the limit) 

-- Simplified testing for light being on in 'set any* routine; eliminated lights 
register 

Revision 2.7: (Test-only revision) 

Moved ei when testing for down limit 
-- Eliminated testing for negative number in radio time calculation 
-- Installed a primitive debouncer for the pass point (out of paranoia) 
-- Changed a pass point in the down direction to correspond to a position of 1 

Installed a temporary echo of the RPM signal on the blinker pin 
-- Temporarily disabled ROM checksum * . ' * 

-- Moved three subroutines before address 0101 to save space (2.7B) 

Framed look up using upforce and dnforce registers with di and ei to 

prevent corruption of upforce or dnforce while doing math (2.7C) 
-- Fixed error in definition of pot_count register (2.7C) 
-- Disabled actual number check of RPM perdod for debug (2.7D) 

— Added in di at test_up_sw and test_dn_sw for ramping up period(2.7D) 

— Set RPM_TIME_OUT to always be loaded to max value for debug (2.7E) 
-- Set RPM_TIME_OUT to round up by two instead of one (2.7F) 

-- Removed 2.7E revision (2.7F) 

Fixed RPM_TIME_OUT to round up in both the up and down direction (2 . 7G) 
Installed constant RS232 output of RPM_TIME_OUT register (2.7H) 

— Enabled RS232 •IT and 'V commands (2.71) 
Disabl d consant output of 2 . 7H (2.71) 

-- Set RS232 to output RPM_TIME_OUT (2 . 71 ) 

-- Removed disable of actual RPM number check (2.7J) 

— Removed pulsing to indicate RPM interrupt (2. 7 J) 
-- 2. 7 J note — need to remove 1 u* command function 

Revision 2.8: 

Removed interrupt enable before resetting rpm_time_out . This will introduce 
roughly 30us of extra delay in time measurement, but .should take care of 
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nuisance stops. 

— R moved push-ing and pop-ing of RP in tasks 2 and 6 to save stack space 

— Removed temporary functionality for ' u' command (2.8 Release) 

— Re-enabled ROM checksum (2.8 Release) 



(2.8B) 
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0E 


A7 


D3 


OF 


A7 . 


D3 


10 


AS 


D4 


11 


A8" 


D* 


12 


A9 


D4 


13 


A9 


D4 


14 


A10 


D5 


15 


A10 


D5 


16 


All 


D5 


17 


- All 


D5 


18 


B 


D6 


19 


B 


D6 


1A 


C 


D6 


IB 


C 


D6 


1C 


unused 


D7 


ID 


unused 


D7 


IE 


unused 


D7 


IF 


unused 


D7 


20 


unused 


DTCP 


21 


unused 


DTCID 


22 


unused 


DTCR1 


23 


unused 


DTCR2 


24 


unused 


DTCT 


25 


unused 


Duration 



Multi-function transmitters 



26 



unused 



Keyless permanent 4 digit code 
Keyless ID code 
Keyless Roll value 

Keyless temporary 4 digit code 
Keyless temporary duration 

Upper byte = Mode: hours/act ivat icns 
Lower byte = # of hours /activations 

Radio type 

77665544 33221100 

00 = CMD 01 = LIGHT 



Page 11 of 97 




10 = OPEN /CLOSE /STOP 

27 unused Fixed / roll 

Upper word = fixed/roll byte 
Lower word = unused 

28 CYCLE COUNTER 1ST 16 BITS 

29 CYCLE COUNTER 2ND 16 BITS 
2 A VACATION FLAG 

Vacation Flag , Last Operation 
0000 XXXX in vacation 

1111 XXXX out of vacation 

2B A MEMORY ADDRESS LAST WRITTEN 

2C IRLIGHHTADDR 4-22-97 

2D Up Limit 

2E Pass point counter / Last operating state 

2F Down Limit 

30-3F Force Back trace 



fizz 

;JJ1 
'U 

f : . 



RS232 


DATA 




REASON 






00 


COMMAND 




10 


RADIO COMMAND 




20 


FORCE 




30 


AUX OBS 




40 


A REVERSE DELAY 




50 


LIMIT 




60 


EARLY LIMIT 




70 


MOTOR MAX TIME, 


TIME OUT 


80 


MOTOR COMMANDED 


OFF RPM CAUSING AREV 


90 


DOWN LIMIT WITH 


COMMAND HELD 


AO 


DOWN LIMIT WITH 


THE RADIO HELD 


B0 


RELEASE OF COMMAND OR RADIO AFTER ' A FORCED 


UP MOTOR ON DUE TO RPM 


PULSE WITHG MOTOR OFF 



STATE 

00 AUTOREVERSE DELAY 

01 TRAVELING UP DIRECTION 

02 AT THE UP LIMIT AND STOPED 

03 ERROR RESET 

04 TRAVELING DOWN DIRECTION 

05 AT THE DOWN LIMIT 

06 STOPPED IN MID TRAVEL 



DIAG 



1) AOBS SHORTED 

2) AOBS OPEN / MISS ALIGNED 

3) COMMAND SHORTED 

4) PROTECTOR INTERMITTENENT 

5) CALL DEALER 

NO RPM IN THE FIRST SECOND 

6) RPM FORCED A REVERSE 

7) LIMITS NOT LEARNED YET 



DOG 2 
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DOG 2 ISA SECONDARY WATCHDOG USED TO 

RESET THE SYSTEM IF THE LOWEST LEVEL "MAINLOOP" 

IS NOT REACHED WITHIN A 3 SECOND 



Conditional Assembly 



GLOBALS ON 

Yes 
No 

TwoThirtyThree 
UseSiminor 



. equ 1 

. equ 0 

.equ Yes 

.equ Yes 



Enable a symbol file 



EQUATE STATEMENTS 



check_sum_value 
TLMER_1_EN 

MfeSoRTIME 

UPTIME 

LESRNTIME 



PWg_CHARGE 
L^HT 
LfcgHT_ON 
MpTOR_UP 
MOTOR DN 

! — 

UNOUT 

D(pN_OUT 

DpS£N_COMP 

U£:COMP 

fSseir 

LbSEINPIN 

PPointPort 
PassPoint 

PhasePrt 
PhaseHigh 

CHARGE_SW 
DIS_SW 
SWITCHESl 
SWITCHES2 



P01M_INIT 
P2M_INIT 
P2M_POR 
P3M_INIT 

P01S_INIT 

P2S_INIT 

P2S_POR 

F3S_INIT 

BLINK_PIN 

P2M_ALLOUTS 
P2M ALLINS 



. equ 


065H 


. equ 


OCH 


.equ 


. {27000 / 


. equ 


(500 / 4) 


. equ 


(50000 / 


. equ 


00H 


. equ 


0FFH 


. equ 


10000000B 


. equ 


01000000B 


. equ 


00100000B 


. equ 


000100005 


. equ 


00100000B 


. equ 


00000001B 


. equ 


00000010B 


. equ 


00000001B 


. equ 


00010000b 


. equ 




.equ 


00001000B 


. equ 


pO 


• equ 


00010000E 


. equ 


10000000E 


01000000B 


. equ 


00001000B 


. equ 


00000100B 


. equ 


00000101B 


. equ 


01011100E 


. equ 


01000000B 


. equ 


00000011B 


. equ 


10000000B 


. equ 


00000110B 


.equ 


00101010B 


. equ 


000000005 


. equ 


00000100E 


.equ 


OlOIilOOS 


. equ 


01011000B 



; CRC checksum for ROM code 

; TMR mask to start timer 1 

;. Max. run for motor = 27 sec {4 ms tick) 

; Delay before learning limits is 0.5 seconds 

; Max. run for motor in learn mode 

; PWM state for old force pots. 

; Flag for light on constantly 

; P0 pin turning on worklight 

; P0 pin turning on the up motor 

; P0 pin turning on the down motor 

; P3 pin output for up force pot . 

; P3 pin output for down force pot . 

; P0 pin input for down force pot. 

; P0 pin input for up force pot. 

; P2 pin for false AOBS output 

; P2 pin for reading in AC line 

; Port for pass point input 

; Bit mask for pass point input 

; Port for phase control output 

; Pin for controlling FET * s 

; P3 Pin for charging the wall control 
P3 Pin for discharging the wall control 

; P0 Pin for first wall control input 

; P0 Pin for second wall control input 



set mode p00-p03 in p04-p07 out 

P2M initialization for operation 

P2M initialization for output of chip ID 

set port3 p30-p33 input ANALOG mode 

Set init. state as worklight on, motor off 
Init p2 to have LED off 

P2 init to output a chip ID (P25, P24, P23 f P22) 
Init p3 to have everything off 

Pin which controls flasher module 

Pins which need to be refreshed to outputs 
Pins which need to be refreshed to inputs 



RsPerHalf 



. equ 



104 



; RS232 period 1200 Baud half time 416uS 
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RsPerFull 




. equ 


208 


RsPerlP22 




. equ 


00 






. equ 


Ur r H 


WUKJvL 1 CanT 




. equ 


LIGHT ON 


PPOI NT PULSES 


equ 






SetupPos 




. equ 


(65535 - 2C 


CMD test 




. equ 


00 


W LATEST 




. equ 


01 


VACATE ST 




. equ 


02 


CHARGE 




.equ 


03 


RSSTATUS 




. equ 


04 


WALLOFF 




. equ 


05 


AUTO REV 




. equ 


00H 


UPJDIRECTION . 


equ 


01H 




UP POSITION 


equ 


02H 




DN DIRECTION . 


equ 


04H 




DEPOSITION 


equ 


05H 




S*fQP 




. equ 


0 6H 


CMg SW 




. equ 


OiH 


LI£HT_SW 




. equ 


02H • 


VA£_SW 




. equ 


04H 


t&3e 




. eau 


0FFK 


fa2se 




. equ 


00H 


□ 

f|xed_mode 




. equ 


10101010b 


ROLL MODE 




. equ 


01010101b 


FIXED TEST 




. equ 


00000000b 


R(t)SL_TEST 




. equ 


00000001b 


FI5§ED MASK 




. equ 


FIXED TEST 


R<&L_MASK 




. equ 


ROLLJTEST 


Fi^THR 


equ 


03H 




DtgR 




. equ 


02H 


Fj^SYNC 




. equ 


08H 


DSYNC 




. equ 


04H 


FIXBITS 




. equ 


11 


DBITS 




. equ 


21 


EQUAL 




. equ 


00 


BACKWIN 




. equ 


1 FH 


FWDWIN 


equ 


80H 




OUTOFWIN 




. equ 


0FFH - 


AddressCounter 




. equ 


27H 


Address APointer 


. equ 


2BH 


CYCCOUNT 




. equ 


28H 


TOUCH ID 




. equ 


21H 


TOUCHROLL 




. equ 


22H 


TOUCHPERM 




. equ 


20H 


TOUCHTEMP 




. equ 


24H 


DURAT 




. equ 


2 5H 


VERSIONNUM 




.equ 


088H 


/4-22-97 . 








IRLIGHTADDR 




. EQU 


2CH 


DISABLED 




. EQU 


00H 


RTYPEADDR 




• equ 


26H 


VACAT IONADDR , 


. equ 


2AH 




MODEADDR 




. equ 


27H 




; RS232 period full time 832us 

; RS232 period 1.22 unit times 1.024ms (00 « 256) 



; Pin for toggling state of worklight 
Number of RPM pulses between pass points 
Setup position — 2" above pass point 

; States for old wall control routine 



; Hold wall control ckt. in RS232 mode 
; Turn off wall control LED for blinks 

; States for GDO state machine 



; Flags for switches hit 



; Generic constants 



; Fixed mode radio 

/Rolling mode radio 

; Unsure of mode — test fixed 

;Unsure of mode -- test roll 

;Bit mask for fixed mode 

;Bit mask for rolling mode 

; Fixed code decision threshold 

/Rolling code decision threshold 
/Fixed code sync threshold 
/Rolling code sync threshold 
/Fixed code number of bits 
/Rolling code number of bits 

/Counter compare result constants 



/Touch code ID 

/Touch code roll value 

/Touch code permanent password 

/Touch code temporary password 

/Touch code temp, duration 

/Version: PRO7000 V2 . 8 

/work light feature on or off 
;00 - disabled, FF « enabled 

/Radio transmitter type 

/Rolling/Fixed mode in EE PROM 
/High byte = don't care (now) 
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UPliIMADDR 




. equ 


2DH 


LAST ST ATEADDR 


. equ 


2EH 




DNLIMADDR 




. equ 


2FH 


NOEECOMM 




. equ 


01111111b 


NOINT 




.equ 


10000000b 


RDROPTIME 




. equ 


125 


LRNOCS 


. equ 


OAAH 




BRECEIVED 




. equ 


077H 


LRN LIGHT 




. equ 


0BBH 


LRNTEMP 




.equ 


0CCH 


LRNDURTN 




. eou 


0DDH 


REG LEARN 




. equ 


0EEH 


NORMAL 


. eou 


00H 




ENTER 




. equ' 


00H 


POUND 




. equ 


01H 


STAR 




. equ 


02H 


AcSl VAT IONS 




. equ 


OAAH 


HOURS 




. equ 


055K 


/Flags 


for 


Ramp Flag Register 


s*3ll 




. equ 


00H 


rAmpup 


. equ 


OAAH 








. equ 


0FFH 


HILLS PEED 

i-- 




. equ 


0CCH 


UPSLOWSTART 




. equ 


200 


do^n 








DNSLOW START 




. equ 


220 


dif^ection) 








BACKOFF 




. equ 


16 


floor 






floor 








SHORTDOOR 




. equ 


936 



discriminates a 
door 



;Low byte = RadioMode flag 
;Addr ss of up limit 
;Address of last state 

; Address of down limit 

;Flag: skip radio read/write 
;Flag: skip radio interrupts 

; Radio drop-out time: 0.5s 

; Learn open/close/stop 

;B code received flag 
;Light command trans. 
; Learn touchcode temporary 
; Learn t.c. temp, duration 
; Regular learn mode 

;Normal command trans. 

; Touch code ENTER key 
; Touch code # key 
; Touch code * key 

/Number of activations mode 
/Number of hours mode 



/ Motor not moving 
; Ramp speed up to maximum 

; Slow down the motor to minimum 

; Running at full speed 

/ Distance (in pulses) from limit when slow- 

; of GDO motor starts (for up and down 

; Distance (in pulses) to back trolley off of 

; when learning limits by reversing off of 

; Travel distance (in pulses) that 

/ one piece door (slow travel) from a normal 

; (normal travel) (Roughly 78") 



PERIODS 



AUTO_REVJTIME 
MIN_COUNT 
TOTAL_PWM_COUNT 
FLASH TIME 



. equ 
. equ 

• eo * u 
. equ 



124 

02H 
03 FH 
61 



/4.5 MINUTE USA LIGHT TIMER 

USA_LIGHT_HI .equ 080H 
USA_LIGHT_LO . ecu 0BEK 

;2.5 MINUTE EUROPEAN LIGHT TIMER 



EURO_LIGHT_HI 
EURO LIGHT LO 



.equ 
. equ 



04 7K 
086H 



; (4 ms prescale) 

/ pwm start point 

; pwm end = start + 2*total-l 

; 0.25 sec flash time 



; 4.5 MIN 

; 4.5 MIN 



; 2.5 MIN 
; 2.5 MIN 



ONE SEC 



.equ 0F4H 



; WITH A /4 IN FRONT 
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CMD_MAKE 

CMD_BREAK 

LIGHT_MAKE 

LIGHT_BREAK 

VAC_MAKE_OUT 

VAC_BREAK_OUT 

VAC_MAKE_IN 

VAC_BREAK_ I N 

VAC_DEL 
CMD_DEL_EX 
VAC DEL EX 



. equ 8 

.equ (255-8) 

. equ 8 
equ (255-8) 
equ 4 

.equ (255-4) 
equ 2 
equ (255-2) 

. equ 8 
. equ 6 
.equ 50 



; cycle count *10mS 
; cycle count *llmS 
; cycle count *100mS 



; Delay 16 ms for vacation 
; Delay 12 ms ( 5*2 + 2) 
; Delay 100 ms 



PREDEFINED REG 



ALL_ON_IMR 
RETURN_IMR 

Radiolmr 



. equ 
. equ 



00111101b 
00111100b 



.equ 00000001b 



; turn on int for timers rpm auxobs radio 
; return on the IMR 

; turn on the radio only 



*0 



GLOBAL REGISTERS 



.equ 04H 



STATUS 

in 



3 TATE .equ 05H 

tineCtr .equ 06H 

liampFlag .equ 07H 

ApT 0_ DE LAY -equ 08H 

UlhePer .equ 0 9H 

MOTOR_TIMER_HI . equ 0AH 

rigTOR_TIMER_LO . equ 0BH 
iferORJTIMER .equ 0AH 

i#GHT_TIMER_HI .equ 0CH 

LIGHT_TIMER_LO .equ 0DK 
LIGHT_TIMER .equ 0CH 

AOBSF .equ 0EH 

PrevPass .equ GFK 



CMD_TEST 00 
WL_TEST 01 
VAC_TEST 02 
CHARGE 03 

state register 

Ramp up, ramp down, or stop 

Period of AC line coming in 



CHECK_GR? 




. equ 


10K 




check_sum 




. equ 


rO 


; check sum pointer 


rom_data 




. equ 


rl 




test_adr_hi 


. equ 


r2 






test_adr_lo 


. equ 


r3 






test adr 




. equ 


rr2 




CHECK_SUM 




. equ 


CHECKJ3RP+0 


; check sum reg for 


ROM DATA 




. equ 


CHECK. GRP+1 


; data read 


LIM TEST HI 




.equ 


CHECK_GRP+0 


; Compare registers 


LIMJTEST_LC 




. equ 


CHECK GRP+1 


; distance to limit 


LIM TEST 




. equ 


CHECK GRP+0 




AUXLEARNSW 


. equ 


CHECK_ 


GRP+2 




RRTO 




. equ 


" CHECK GRP+3 


} 


RPM_ACOUNT 


. equ 


CHECK_ 


GRP+4 


; to test for active rpm 


RS COUNTER 




. equ 


" CHECK GRP+5 


; rs232 byte* counter 


RS232DAT 




. equ 


CHECK_GRP+6 


; rs232 data 


RADIO_CKD 




. equ 


CHECK GR? + "? 


; radio command 


R DEAD TIME 


. equ 


CHECK_ 


_GRP-rS 


* 


FAULT 




. equ 


" CHECK_GRP+5 




VAC FLAG 




.equ 


CHECK GRP-10 


; VACATION mode fla 


VACFLASH 




. equ 


CHECK GRP+11 
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VACCHANGE 

FAULTTIME 

FORCE_ IGNORE . equ 

FAULTCODE 



TIMER_GROUP .equ 

position_hi 

position_lo 

position 

up_l imi t_hi 

up_limit_lo 

up_limit 

switch_delay .equ 

obs_count 

rscommand 

rs_temp_hi 

rs_temp_lo 

rs_temp 

PQSITION_HI 
P&3ITION_LO 
POSITION 
UigLIMIT_HI 

uSlimit_lo 

DELIMIT 

sigTCH_DELAY .equ 

olfePass 

O0S_COUNT 

RsMode 

Divisor 

RSCOMMAND 

RfejTEMP_HI 

R£l!_TEMP_LO 

RsSjJEMP 

teyerLevel 

E^MseTMR 

PlxaseTime 

ifrlaxSpeed 



.equ CHECK_GRP+12 
. equ CHECK_GRP+ 1 3 
CHECK GRP+14 



. equ 


CHECK_ 


GRP+15 


20H 






. equ 


rO 




. equ 


rl 




. equ 


rrO 




. equ 


r2 




. equ 


r3 




. equ 


rr2 




r4 






. equ 


r6 




. equ 


r9 




. equ 


rlO 




. equ 


rll 




. equ 


rrlO 




. equ 


TIMER 


GROUP+0 


. equ 


timer" 


"group+i 


. equ 


timer" 


]group+o 


. equ 


timer" 


"GROUP+2 


• ec J u 


timer] 


"GROUP+3 


. equ 


timer" 


"GROUP+2 


TIMER_ 


GROUP+4 


. equ 


TIMER 


GROUP* 5 


. equ 


timer" 


"GROUP+6 


. equ 


timer" 


"GROUP+7 


. equ 


timer" 


J3ROUP+8 


. equ 


timer] 


"GROUP+9 


. equ 


timer" 


"group+io 


. equ 


timer" 


~GROUP+ll 


. equ 


timer" 


~GROUP+10 


. equ 


timer" 


GROUP+12 


. equ 


timer" 


GROUP+13 


. equ 


timer" 


_GROUF+14 


. equ 


timer" 


GROUP+15 







Number to divide by 



Current step in 20-step phase ramp-up* 
Timer for turning on and off phase control 
Current time reload value for phase timer 
Maximum speed for this kind of door 



LEARN EE GROUP FOR LOOPS ECT 



LEARN EE_GRP 


. equ 


30H 










TEMPH 


. equ 


LEARN EE GRP ; . 








TEMPL 


. equ 


LEARN EE GR?+i 


7 






P2M_SHADOW 




. equ 


LEARNEE GRP+2 






Readable shadow of P2M register 


LEARN DB 




. equ 


LEARNEE_GRP+3 




/ 


learn debouncer 


LEARNT 




. equ 


LEARNEE GRP+4 




9 


learn timer 


ERASET 




. equ 


LEARNEE GRP+5 




i 


erase timer 


MTEMPH 




. equ 


LEARNEE_GRP+ 6 


t 


memory 


temp 


MTEMPL 




. equ 


LEARNEE GRP + "? 






memory temp 


MTEMP 


. equ 


LEARNEE_GRP+8 


r 


memory 


temp 


SERIAL 




.equ 


LEARNEE GRP+9 






data to & from nonvol memory 


ADDRESS 




. equ 


LEARNEE GRP+10 






address for the serial nonvol. memory 


ZZWIN 


. equ 


LEARNEE_GRP+11 




radio 


00 code window* 


TO OFLOW 




. equ 


LEARNEE GRP+12 






Third byte of TO counter 


TOEXT 


. equ 


LEARN EE_GRP+ 1 3 


7 


tO extend dec'd every TO int 


TOEXTWORD 




. equ 


LEARNEE GRP+12 






Word-wide TO extension 


T125MS 




.equ 


LEARNEE_GRP+ 1 4 






125mS counter 


SKIPRADIO 




. equ 


LEARNEE_GRP+15 




i 


flag to skip radio read, write if 












t 


learn or vacation talking to it 


temph 


. equ 


rO 




t 




t eir.pl 


. ecu 


rl 










learndb 




. equ 


r3 




t 


learn debouncer 


learnt 




.equ 


r4 




i 


learn timer 


eraser 




. equ 


r5 




9 


erase timer 


mtemph 




.equ 


r6 






memory temp 
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mtempl 




. equ 


r7 


; memory temp 


mtemp 


. equ 


r8 




; memory temp 


serial 


.equ 


r9 




; data to and from nonvol mem 


address 




. equ 


no 


; addr for serial nonvol memory 


zzwin 


. equ 


rll 




* 


tO_of low 




. equ 


rl2 


; Overflow counter for TO 


tOext 


. equ 


rl3 




; tO extend dec'd every TO int 


tOextword 




. equ 


rrl2 


; Word-wide TO extension 


tl25ms 




. equ 


rl4 


; 125mS counter 


skipradio 




. equ 


rl5 


; flag to skip radio read, write 



; learn or vacation talking to it 







. equ 


h \j n 


UilLUlUc 




. equ 


r u 






. equ 


r i 


loopreg 




- equ 


r j 


up force hi 


. equ 


r4 




up force lo 


. equ 


r o 




up force 




. equ 


r r 4 


dn. —force hi 


. equ 


r b 




drr = iorce lo 


. equ 


r / 




dr?I=f orce 




. equ 


r r b 


force add hi 


. equ 


r8 




f qrjce_ add_lo 


. equ 


r9 




f qfece_add 




. equ 


rr8 


upjitemp 




. equ 


rlO 


dri£temp 




. equ 


rll 


pqf3_count 




. equ 


r!2 


f qr£ce_temp_of 


. equ 


rl3. 




f 6 r c e_t emp_h i 


. equ 


rl4 




f 6 i£p e_t emp_ 1 o 


. equ 


rl5 




D^pPRCE 




. equ 


40H 


DEFORCE 




. equ 


41H 


AQKTEST 




. equ 


42H 


LdopReg 




. equ 


43H 


UeL^ORCE HI 


. equ 


44H 




UBc^FORCE LO 


. equ 


4 5H 




DN FORCE HI 


. equ 


4 6H 




DN FORCE LO 


. equ 


47H 




UP TEMP 




. equ 


4 AH 


DN_TEMP 




. equ 


43H 


POT COUNT 




. equ 


4CH 


FORCE TEMP OF 


. equ 


4CH 




FORCE TEMP HI 




. equ 


4 EH 


FORCE TEMP LO 




. equ 


4FH 



RPM_GROUP 




. equ 


50H 


rtypes2 




equ 


rO 


stackf lag 




. equ 


rl 


r pm t emp o f 




. equ 


r2 


rpm temp hi 


. equ 


r3 




rpm_temp_hiword 


. equ 


rr2 


rpm_temp_lo 


."equ 


r4 




rpm_past_hi 


. equ 


r5 




rpra_past_lo 


.equ 


r6 




rpm period hi 




. equ 


r7 


rpm_period_lo 




. equ 


r8 


divcounter 




. equ 


rll 


rpir;_count 




.equ 


r 12 


rpm_t ime_our 


. equ 


rl3 




RTypes2 




. equ 


RPM 


STACK FLAG 




. equ 


rpm] 



; Counter for dividing RPM time 
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RPM_TEMP OF 




. equ 


RPM GROUP+2 


R PM_T EM P_H I 


equ 


RPM GROUPS 3 


RPM_TEMP_HWORD 




. equ 


RPM GROUP+2 


RPM_TEMP LO 


equ 


RPMJSROUP+4 


RPM_PAST_HI 


equ 


RPM_GROUP+5 


RPM_PAST_LO 


equ 


RPM GROUP+6 


RPM_PERIOD_HI 




. equ 


RPM_GROUP+7 


RPM_PERIOD_LO 




. equ 


RPM_GROUP+8 


DN_L I M I T_H I 




. equ 


RPMJ3ROUP+9 


DN LIMIT LO 




. equ 


RPM_GROUP+10 


DIVCOUNTER 




. equ 


RPM_GR0UP+11 


RPM FILTER 




. equ 


RPK_GROUP-rll 


RPM COUNT 




. equ 


RPM GROUP+12 


RPM TIME OUT . 


equ 


RPM GROUP+13 


BLINK HI 




. equ 


RPM_GROUP+14 


BLINK LO 




. equ 


RPM GROUP+15 


BLINK 




. equ 


RPM GROUP+14 



; Overflow for RPM Time 
; High word of RPM Time 



Counter for dividing RPM time 

DOUBLE MAPPED register for filtering signal 



Blink timer for flashing the 
about-to-travel warning light 
Word-wise blink timer 



RADIO GROUP 
************* 



RagioGroup 


. equ 


60H 




RT^emp 
R^plropH 




. equ 


RadioGroup 


. equ 


RadioGroup+1 


RljjempL 


. equ 


RadioGroup+2 


RfclmeAH 




. equ 


RadioGroup+3 


Rfl^meAL 




. equ 


RadioGroup+4 


Rf^melH 




. equ 


RadioGroup+5 


RTlmelL 
RkiiiolH 




. equ 


RadioGroup+6 




. equ 


RadioGroup-;- 7 


RadiolL 




. equ 


RadioGroup+8 


R@ioC 


. equ 


RadioGroup+9 


PciinterH 




. equ 


RadioGroup+IO 


PpfJnterL 




. equ 


RadioGroup+11 


A<MValueH 




. equ 


RadioGroup+12 


AbdValueL 




. equ 


RadioGroup+13 


Rlgiio3H 




. equ 


RadioGroup+14 


Radio3L 




. equ 


RadioGroup+1 5 


rtemp 




. equ 


rO 


rtemph 


. equ 


rl 




rtemp 1 


. equ 


r2 




rtimeah 




.equ 


r3 


rtimeal 




. equ 


r4 


rtimeih 




. equ 


r5 


rtimeil 




. equ 


r6 


radiolh 




. equ 


r7 


radioll 




. equ 


r6 


radioc 


. equ 


r9 




pointerh 




. equ 


no 


pointerl 




. equ 


rll 


pointer 




. equ 


rrlO 


addvalueh 




. equ 


rl2 


addvaluel 




. equ 


rl3 


radio3h 




. equ 


rl4 


radio31 




. equ 


rl5 


w2 




. equ 


rr!4 



; radio temp storage 

radio temp storage high 

radio temp storage low 

; radio active time high byte 
; radio active time low byte 
; radio inactive time high byte 
; radio inactive time low byte 
; sync 1 code storage 
; sync 1 code storage 

radio word count 



sync 3 code storage 

sync 3 code storage 

; radio temp storage 

radio temp storage high 

radio temp storage low 

; radio active time high byte 
; radio active time low byte 
; radio inactive time high byte 
; radio inactive time low byte 
; sync 1 code storage 
; sync 1 code storage 

radio word count 



Overall pointer for ROM 



sync 3 code storage 
sync 3 code storage 
For Siminor revision 



CounterGroup .equ 


070h 


; counter group 


TestReg 


. ecu 


CounterGroup ; Test 


area when dividing 


BitMask 


. equ 


Count erGroup+01 


Mask for transmitters 


La st Match 


. equ 


CounterGroup+02 


last matching code address 


LoopCount 


. equ 


CounterGroup-*- 03 


loop counter 


CounterA 


. equ 


CounterGroup+04 


- counter translation MSB 


Counters 


. equ 


CounterGroup-!- 05 




Count erC 


. equ 


CounterGroup+06 , 
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■ equ 




MirrorA 


.equ 


CounterGroup+08 


MirrorB 


. equ 


Coun t e rG r oup+ 0 9 


MirrorC 


.equ 


Coun t e r Gr oup+ 0 1 0 


MirrorD 


. equ 


Count e r G r oup+ Oil 


COUNT 1H 


. equ 


Coun t e r G r oup+ 012 


COUNT 1L 


.equ 


CounterGroup+013 


COUNT 3 H ■ 


. equ 


Coun t e r G r oup+ 014 


COUNT 3 L 


. equ 


Coun t e r G r oup+ 015 


loopcount 


. equ 


r3 


countera 


. equ 


r4 


counterb 


. equ 


r5 


counterc 


. equ 


r6 


counterd 


. equ 


r7 


minora 


. equ 


r8 


mirrorb 


. equ 


r9 


mirrorc 


. equ 


rlO 


mirrord 


. equ 


rll 


Radio2Group 


. equ 


080H 


pfegVFIX 


. equ 


Radio2Group + 0 


ppSvtmp 


. equ 


Radio2Group + 1 


RdgLBIT 


. equ 


Radio2Group + 2 


Rig me DH 


. equ 


Radio2Group + 3 


RpvmeDL 


. equ 


Radio2Group + 4 


RGmePH 


. equ 


Radio2Group + 5 


RfemePL 


. equ 


Radio2Group + 6 


ICDB 


. equ 


Radio2Group + 7 


SVUB 


. equ 


Radio2Group + 8 


RADIOBIT 


. equ 


Radio2Group + 9 


RadioTimeOut .equ 


Radio2Group + 10 


R'adioMode 


• . equ 


Radio2Group + 11 


BdpE Thresh 


. equ 


Radio2Group + 12 


SMncThresh 


. equ 


Radio2Group + 13 


Ma„xBi t s 


. equ 


Radio2Group + 14 


Rfttag 


. equ 


Radic2Group + 15 


pjcevf ix 


. equ 


rO 


prevtmp 


. equ 


r 1 


rollbit 


. equ 


r2 


id_b 


. equ 


r7 


sw. b 


.equ 


rS 


radiobit 


. equ 


r9 


radiotimeout .equ 


rlO 




radiomode 


. equ 


rll 


rf lag 


. equ 


rl5 



counter translation LSB 
back translation MSB 



back translation LSB 
received count 



; Fixed or rolling mode 

;Bit decision threshold 

;Sync pulse decision threshold 

; Maximum number of bits 

; Radio flags 



OrginalGroup 
SW_DATA 
ONEP2 
LAST CMD 



CodeFlag 



. equ 



RPMONES 
RPMCLEAR 
FARE V FLAG 



90K 
. equ 
. equ 
. equ 



OrginalGroup+0 
OrginalGroup+1 
OrginalGroup+2 



.equ OrginalGroup+3 



.equ OrgirialGrcup+4 
.equ OrginaiGroup+5 
.ecu Ore ir.alGrouD-r 6 



1.2 SEC TIMER TICK .125 

LAST COMMAND FROM 

=55 WALL CONTROL 

= 00 RADIO 

Radio code type flag 

FF = Learning open/close/stop 

77 = b code 

AA = open/close/stop code 

55 = Light control transmitter 

00 = Command or unknown 

RPM Pulse One Sec. Disable 

RPM PULSE CLEAR & TEST TIMER 

RPM FORCED AREV FLAG 

88H FOR A FORCED REVERSE 



FLASH_FLAG 
FLASK DELAY 



. equ 



.equ OrginalGroup+7 
CrginalGrouo-rS 
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REASON 


. equ 


OrginalGroup+9 






FLASH_COUNTER 




. equ 


OrginalGroup+10 






RadioTypes 




. equ 


OrginalGroup+11 




; Types for one page of tx*s 


LIGHT_FLAG 




- equ 


OrginalGroup+12 




CMD_DEB 




. equ 


OrginalGroup+13 






LIGHT_DEB 




. equ 


OrginalGroup+14 






VAC_DEB 




. equ 


OrginalGroup+15 






NextGroup 




• equ 


UnUfl 






SDISABLE 




. equ 


NextGroup+O 




syaLciu uioalJlc Llltisr 


PRADI03H 




. equ 


NextGroup+1 




3 mS code storage high byte 


PRADI03L 




. equ 


NextGroup+2 


* 


3 mS code storage low byte 


PRADIOIH 




. equ 


NextGroup+3 


* 


1 mS code storage high byte 


PRADIOIL 




. equ 


NextGroup+4 


* 


1 mS code storage low byte 


RTO 




. equ 


NextGroup* 5 


i 


radio time out 


;RFlag 




.equ 


NextGroup+6 


i 


radio flags 


EnableWorkLight 


. equ 


NextGroup+6 




; 4-22-97 work light function on 


RINFILTER 




. equ 


NextGroup+7 


* 


radio input filter 


LIGHT1S 




. equ 


NextGroup+8 


t 


light timer for lsecond flash 


DOG 2 




. equ 


NextGroup+9 


§ 


second watchdog 


FAULT FLAG 




. equ 


NextGroup+ 1 0 


i 


flag for fault blink, no rad. blink 


MQlTDEL 




. equ 


NextGroup+ 1 I 




motor time delay 


P.EpINT_DE5 




. equ 


NextGroup-i- 1 2 




Pass Point debouncer 


DELAYC . 




. equ 


NextGroup+1 3 




for the time delay for command 


lipA C 




. equ 


NextGroup+1 4 




Limits are changing register 


CMP 




. eau 


NextGroup+1 5 




Counter compare result 


BffcKUP_GRP 




. equ 


OBOH 






SjepunterA 




. equ 


BACKUP GRP 






I^jGpunte rB 




. eau 


BACKUP - GRP+1 






PCount erC 




. eau 


BACKUP - GRP+2 






T*l f~** **** \ * v% w T\ 




. eau 


BACKUP - GRP+3 






rjLJUU r\ l lrJLK 




. eau 


BACKUP - GRP+4 








. equ 


BACKUP 


GRP+4 ~ 






H©UR_TIMER~LO 


. equ 


BACKUP^ 


_GRP+5 






P'a^s Counter 




. equ 


BACKUP GRP+6 






STACKREASON 




. equ 


BACKUP GRP+7 






H&stRun 




. equ 


BACKUP__GRP+8 




Flag for first operation after power 


Mo^nSpeed 




. equ 


BACKUP GRP+9 




BRPM_COUNT 




. equ 


BACKUP GRF+10 






BRPM TIME OUT 




. equ 


BACKUP GRP+11 






BFORCE_IGNORE 




. equ 


BACKUP GRP+1 2 






BAUTO DELAY 


. equ 


BACKUP 


_GRF+13 






BCMD DEB 




. equ 


BACKUP GRP+1 4 






BSTATE 




. equ 


BACKUP_GRP-rl5 






; Double- 


•mapped 


registers for M6800 test 






COUNT_HI 




. equ 


BRPM_COUNT 






COUNT LO 




. equ 


BRPM TIME OUT 






COUNT 




. equ 


B FORCE IGNORE 






REGTEMP 




. equ 


BAUTO_ DELAY 






REGTEMP2 




. equ 


BCMD DEB 






; Double - 


■mapped 


registers for Siminor Code 




Reception 


CodeTO 


. equ 


COUNT 1L 


i 


Binary radio code received 


CodeTl 


. equ 


RadiolL 




CodeT2 


. equ 


MirrorC 






CodeT3 


. equ 


MirrorD 






CodeT4 


. equ 


COUNT 3 H 






CodeTS 


. equ 


COUNT 3 L 






Ix 




. equ 


COUNT 1H 




; Index per Siminor* s code 


WlHigh 


. equ 


AddVaiueH 


t 


Word 1 per Siminor* s code 


WILow 




. equ 


AddValueL 




; description 


wlhigh 


. equ 


addvalueh 




wilow 




. equ 


addvaluel 
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W2High 



.equ Radio3H 



Word 2 p r Siminor's code 



W2Low 


. equ 


Radio3L 




description 


ii.Ly.ii . equ 


radio3h 






W^S J. uw 


. equ 


radio31 






o i MV-IS. 1 (J IT 


. equ 


238 




start of the stack 


STACKEND 


. equ 


OCOH 


r 


end of the stack 


T"1 O O ~3 O *T~ T"1 

RS232IP 


. equ 


PO 


! 


RS232 input port 


T* ^ "3 1 T hit 

RS232IM 


. equ 


SWITCHES1 




RS232 mask 


csh 


. equ 


10000000B 




chip select high for the 93c4 6 


csl 


. equ 


-csh 




chip select low for 93c4 6 


clockh 


. equ 


01000000B 




clock high for 93c4 6 


clockl 


. equ 


-clockh 




clock low for 93c4 6 


doh 


. equ 


00100000B 




data out high for 93c4 6 


dol 


. equ 


-doh 




data out low for 93c4 6 


ledh 


. equ 


00000010B 




turn the led pin high "off 


ledl 


. equ 


-ledh 


; turn the led pin low "on 


psmask 


. equ 


01000000B 




mask for the program switch 


csport 


. equ 


P2 


* 


chip select port 


dLoport 


. equ 


P2 




data i/o port 


cQgport 


. equ 


P2 




clock port 


Import 


. equ 


P2 




led port 


p&port 


. equ 


P2 




program switch port 


!□ 

WSTCHDOG_GROUP 


. equ 


OFH 








. equ 


rO 








. equ 


rll 






wHtmr 


. equ 


rl5 







, IF 



TwoThirtyThree 



WDT 



WDT 



.macro 
.byte 5fh 
. en dm 

:else 

. macro 

xor PI, #00000001b 
. endiTi 

.ENDIF 



Kick external watchdog 



FILL 



.macro 
.byte OFFh 
. endm 



FILL10 .macro 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
. endm 



FILL1C0 



FILLIO 
FILL10 
FILLIO 
FILLIO 
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FILL10 
FILLIO 
FILLIO 
FILLIO 
FILLIO 
FILLIO 
. endm 

FILLIOOO .macro 
FILL100 
FILL100 
FILL100 
FILLIOO 
FILLIOO 
FILLIOO 
FILLIOO 
FILLIOO 
FILLIOO 
FILLIOO 
. endm 



TRAP 


.macro 




t t=r 


jP. 


start 


iO 


jP 


start 


ifl 


DP 


start 




jP 


start 


i ^ 


jP 


start 




. endm 




TRfiPIO 


.macro 




□ 


TRAP 






TRAP 






TRAP 






TRAP 




; 


TRAP 




p; 
* s=s 


TRAP 




T 

!U 


TRAP 




: - I 


TRAP 






TRAP 




i 


TRAP 






..endm 




SetRpToRadio2Group 




. byte 


031H 




. byre 


080K 



. endm 



* Interrupt Vector Table 



org 


0O0OH 








IF 


TwoThirtyThree 








word 


RADIO INT 


; IRQO 






word 


OOOCH 


fIRQl, 


P3. 


3 


word 


RPM 


;IRQ2, 


P3. 


1 


word 


AUX_OBS 


?IRQ3, 


P3. 


0 


word 


TIMERUl' 


; IRQ4 , 


TO 




word 


RS232 


■IRQ5, 


Tl 




EL3I 










word 


RADIO INT" 


■ IRQO 






word. 


RAD I 0_ I NT 


' IRQ1 , 


P3. 


3 


word 


RPM 


•IRQ2, 


P3. 


1 
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.word AUX_OBS 
.word TIMERUD 
.word OOOCH 

. ENDIF 



IRQ3, P3.0 
IRQ4, TO 
IRQ5, Tl 



.page 
. org 
jP 



OOOCH 
START 



;jmps to start at location 0101, 0202 etc 



RS232 DATA ROUTINES 



RS COUNTER REGISTER: 



0000XXXX - 0011XXXX Input byte counter (inputting bytes 1-4) 
O0XXOOO0 Waiting for a start bit 

00XX0001 - XXXX1001 Input bit counter (Bits 1-9, including stop) 
00XX1111 Idle — whole byte received 

1000XXXX - 1111XXXX Output byte counter (outputting bytes 1-8) 
1XXXO0O0 Tell the routine to output a byte 

1XXX0001 - 1XXX1001 Outputting a byte (Bits 1-9, including stop) 
1XXX1111 Idle — whole byte output 



OtfjputMode : 

IT* 

:U tm 

P 3r 

l ton 
OutputData : 

!y 

! = I SCf 

rrc 
H jr 

E — 

OutputLow : 

and 
or 

OutputStart : 

Id 

Id 

and 

or 

inc 

iret 

OutputHigh : 

and 
or 

DataBitDone : 



RS_COUNTER, #00001 11 IB 
z, OutputStart 

RS_COUNTER, #00001 00 IB 
z, OutputStop 



RS 232 DAT 

c, OutputHigh 



p3 f #-CHARGE_SK 
P3, #DI S_SK 
DataBitDone 



Tl, #RsPerFull 
TMR, #O000I110B 
p3, #-CKARGE_SW 
P3, #DIS_SW 
RS COUNTED 



p3, #-DIS_SW 
P3, #CHARGE SW 



Check for outputting start bit 



; Check for outputting stop bit 
(bit 9) , if so, don't increment 



; Set carry to ensure high stop bit 
; Test the bit for output 



Turn off the pull-up 
Turn on the pull -down 



; Set the timer to a full bit period 
Load the full time period 
Send a start bit 

Set the counter to first bit. 



; Turn off the pull-down 

; Turn on the pull-up 



inc 
iret 



RS COUNTER 



Advance to the next data bit 



OutputStop : 



ana 
or 



p3, #-DIS_SW 
~P3, # CHARGE SW 



Output a stop (high) bit 
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or 
cp 
jr 
clr 

MoreOutput : 

RSExit : 

iret 



RS_COUNTER, #00001111B 
RS_COUNTER, tllllllllB 
nz ; MoreOutput 
RS COUNTER 



; Set the flag for word being done 

; Test for last output byte 

; If not, wait for more output 

; Start waiting for input bytes 



RS232: 



cp RsMode, #00 

jr nz, InRsMode 

cp STATUS, # CHARGE 

jr nz, WallModeBad 



; Check for in RS232 mode. 
If so, keep receiving data 

; Else, only receive data when 
; charging the wall contol 



InRsMode : 



tan 



RSHnput : 



tm 

jr 



iri 






tm 




jr 


*=? 




m 


tcm 




jr 




scf 




tm 




jr 


• ~ 

if \ 


rcf 



RS_COUNTER, #000011 1 IB 
z, RSExit 

RS_COUNTER , #11000000B 
nz, OutputMode 



RS_COUNTER , #00001111B 
z, WaitForStart 

RS_COUNTER, # 00001 001B 
z, StopBit 



RS232IP, #RS232IM 
nz, GotRsBit 



Test for idle state 

If so, don't do anything 

test for input or output mode 



; Check for waiting for start 

; If so, test for start bit 

; Test for receiving the stop bit 

; If so, end the word 

; Initially set the data in bit 

; Check for high or low bit at input 
If high, leave carry high 

; Input bit was low 



Gt&RsBit : 



rrc 
inc 
i ret 



RS2 32DAT 
RS COUNTER 



; Shift the bit into the byte 
; Advance to the next bit 



StopEit : 



tm 
jr 

DataGood : 



RS232IP, #RS232IK 
z, DataBad 



; Test for a valid stop. bit 

; If invalid, throw out the word 



tm 
jr 
Id 



IsData: 



or 

iret 



RS_COUNTER , #1I110000B 
nz, IsData 
RSCOMMAND, RS232DAT 

RS COUNTER, #00001111E 



; If we 1 re not reading the first word, 
; then this is not a command 
Load the new command word 

; Indicate idle at end of word 



WallModeBad: 

clr 
DataBad : 



RS COUNTER 



; Reset the RS232 state 



ana 

ire* 



RS COUNTER, #00I10000E 



; Clear the byte counter 



WaitForStart: 
tm 



RS232IP, #RS232IM 



; Check for a start bit 

Page 25 of 97 



3* 

inc 
Id 
Id 
Id 

iret 



nz, NoStartBit 

RS_COUNTER 
Tl, #RsPerlP22 
TMR, #00001110B 
Tl, SRsPerFull 



If high, keep waiting 

Set to receive bit 1 

Long time until next sample 

Load the timer 

Sample at IX afterwards 



NoStartBit : 



Id 

iret 



Tl, #RsPerHalf 



; Sample at 2X for start bit 



Set the worklight timer to 4 . 5 minutes for 60Hz line 
and 2.5 minutes for 50 Hz line 



SetVarLight : 
cp 

USALight : 
Id 

13 id 

ip ret 
Euj^oLight : 

:i: id 

ret 



LinePer, #36 
uge, EuroLight 

LIGHT_TIMER_HI, #USA_LIGHT_HI 
LIGHT TIMER LO, #USA LIGHT LO 



LIGHT_TIMER_HI, #EURO_LIGHT_HI 
LIGHT TIMER LO, #EURO LIGHT LO 



Test for 50Hz or 60Hz 

; Load the proper table 



set the light period 
Return 

set the light period 
Return 



THIS THE AUXILARY OBSTRUCTION INTERRUPT ROUTINE 



AU§_OBS : 
. ld 
and 
Id 

!y or 
13 and 



iret 



OBS_COUNT, #11 
imr, #11110111b 
AOBSTEST, #11 
AOBSF, #00000010B 
AOBSF, #11011111B 



; reset pulse counter (no obstruction) 
; turn off the interupt for up to 500uS 
reset the test timer 

; set the flag for got a aobs 
; Clear the bad aobs flag 
; return from int 



Test for the presence of a blinker module 



LookForFIasher : 

and P2M_SHADOW, #-BLINK_PIN 

Id P2M, P2M_SHADOW 

or P2, *BLINK_PIK 

or P2M_SHADOW, #BLINK_PIN 

ld P2M, P2M_SHADOW 

ret 

; Fill 41 bytes of unused memory 

FILL10 
FILL10 
FILL10 
FILL10 
FILL 



Set high for autolatch test 



Look for Flasher module 



REGISTER INITILIZATION 



. org 

start : 
START: di 



010IK 



; address has both bytes the same 
; turn off the interrupt for init 



. IF TwoThirtyThree 
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Id RP,#WATCHDOG GROUP 






Id wdtmr, #00001111B 


; re dog lOOmS 




. ELSE 






clr PI 






. ENDIF 






WDT 


; kick the dog 




clr RP 


; clear the register pointer 


PORT 


INITILIZATION 






Id P0,#P01S INIT 


; RESET all ports 




Id P2,#P2S POR 


; Output the chip ID code 




Id P3,#P3S INIT 






Id P01M, #P01M INIT 


; set mode p00-p03 out p04-p07in 




Id P3M, #P3M_INIT 


; set port3 p30-p33 input analog 






; p34-p37 outputs 


i '"f\ 


Id P2M f #P2M_POR 


; set port 2 mode for chip ID out 









; ^'Internal RAM Test and Reset All RAM = mS 
;tP— **** «** *"* « 



!□ srp 

write_agam: 
1 _ WDT 
X3 Id 

wr§Jte_againl 

!II 



#OFOh 
rl5 f #4 



rl4, #1 



Id 
cp 
jr 
rl 
jr 
clr 
inc 
cp 



@rl5, rl4 

rl4, @rl5 

ne, system_error 

rl4 

nc, write_againl 

@rl5 

rl5 

rl5,#240 ■ 

ult, write_agair; 



; point to control group use stack 
;rl5= pointer (minimum of RAM } 

; KICK THE DOG 



;write 1,2,4,8,10,2.0,40,80 
; then compare 



; write RAM ( r5 ) =0 to memory 



Checksum Test 



CHECKSUMTEST: 
srp 
Id 
Id 

add_sum: 

WDT 
ldc 
add 
decw 
jr 
cp 

system_error : 

and ledport , #ledl 
jr system_error 

.byte 256-check_sum_vaIue 
system_ok : 



#CHECK_GRP 
test_adr_hi, #01FH 
test adr lo,#0FFH 



rom_data, @test_adr 
checksum, rom^data 
test_adr 
nz, add_sum 

checksum, # c he ck_sum_ value 
z, sys tem_ok 



; maximum address^fffh 

; KICK THE DOG 
; read ROM code one by one 
;add it to checksum register 
; increment ROM address 
;address=0 ? 

/check final checksum « 00 ? 

; turn on the LED to indicate fault 
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WDT 

Id 

SETSTACKLOOP: 
Id 
dec 
cp 



STACKEND, #STACKTOP 

6 STACKEND, #01H 
STACKEND 

STACKEND, # STACKEND . 
nz, SETSTACKLOOP 



; kick th dog 

; start at the top of the stack 

; set the value for the stack vector 
; next address 
; test for the last address 
; loop till done 



CLEAR DONE : 



m 



Id 


STATE, #06 




Id 


B ST ATE, #06 




Id 


One Pass, STATE 


9 


Id 


STATUS, # CHARGE 




Id 


SWITCH DELAY, #CMD DEL EX 


1 


Id 


LIGHTJTIMER HI,#USA LIGHT 


HI 


Id 


LIGHT TIMER LO, #USA LIGHT" 


]lo 


Id 


RPMONES,#24 4 




srp 


#LEARNEE_GRP 




Id 


learndb, #0FFK 




Id 


zzwin, learndb 




Id 


CMD_DEE,' learndb 




Id 


BCMD DEB, learndb 




Id 


VAC DEB, learndb 




Id 


LIGHT_DEB, learndb 




Id 


ERASET, learndb 




Id 


learnt, learndb 




Id 


RTO, learndb 




Id 


AUX LEARN SK , learndb 




Id 


RRTO, learndb 


r 



; set the state to stop 
# 

Set the one-shot 

; set start to charge 

set the delay time to and 

; set the light period 
; for the 4 . 5 min timer 

set the hold off 

set the learn debouncer 
turn off the learning 

in case of shorted switches 
in case of shorted switches 



; set the erase timer 
; set the learn timer 
; set the radio time out 

turn off the aux learn switch 

set the radio timer 



jSTACK INITILIZATION 

*y* + 



clr 

Id 

.IF 

.ELSE 

clr 

. ENDIF 



254 

255, #236 
TwoThirtyThree 

PI 



set the start of the stack 



TIMER INITILIZATION 



Id PRE0,#00000101B 

Id PRE1, #00010011B 

clr TO 

Id Tl, #RsFerHalf 

Id TMR,#00001111B 



; set the prescaler to /l for 4MHz 
; set the prescaler to /4 for 4MHz 
; set the counter to count FF through 0 
set the period to rs232 period for start bit sample 
; turn on the timers 



PORT INITILIZATION" 



Id 


P0,#P01S INIT 


Id 


P2,#P2S INIT 


Id 


P3,#P3S INIT 


Id 


P01M, #P01M INIT 


id 


P3K, #P3K_INI7 


Id 


P2M_SHAD0W, #?2M_INIT 


Id 


F2l\ , £ ?2K_IKI 7 


. IF 


TwoThirtyThree 


. ELSE 





RESET all ports 



; s t mode p00-p03 out p04-p07in 
; set port3 p30-p33 input analog mode 
; p34-p3"? outputs 
; Shadow P2K for read ability 
set port 2 mode 
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clr PI 
. ENDIF 



READ THE MEMORY 2X AND GET THE VAC FLAG 



Id SKI PRADIO, #NOEECOMM 

Id ADDRESS, # VAC AT I ON AD DR 

call READMEMORY 

call READMEMORY 

Id VAC FLAG, MTEMPH 



set non vol address to the VAC flag 
read the value 2X IX INIT 2ND read 
read the value 
save into volital 



WakeUpLimits : 



5 



Id 

call 
Id 
Id 
Id 

call 
Id 
Id 
WDT 



WafeUpState: 

IS Id. 
ll: call 
W id 
|^ Id 
i cp 

r cp 

iU 

Wa&eUpLost : 

5 ld 

]** Id 
I** ld 



ADDRESS, #UPLIMADDR 
READMEMORY 
UP_LIMIT_HI, MTEMPH 
U P_L I M I T_LO , MTEM PL 
ADDRESS, #DNLIMADDR 
READMEMORY 
DN_LIMIT_HI , MTEMPH 
DN LIMIT LC, MTEM PL 



ADDRESS, #LASTSTATEADDR 
READMEMORY 
STATE, MTEM PL 
PassCounter, MTEMPH 
STATE , # U P_POS I T I ON 
z, WakeUpLimit 
STATE , # DN_POS ITION 
z, WakeDnLimit 



STATE, #STOP 
POSITION_HI, #07 FH 
POSITION_LO, #080K 
GotWakeUp 



Read the up and down limits into memory 



Kick the dog 



; Read the previous operating state into memory 
* 

; Load the state 

; Load the pass point counter 

; If at up limit, set position 

; If at down limit, set position 



Set state as stopped in mid travel 
Set position as lost 



WakeUpLimit : 
id 
ld 
jr 



PO S I T I ON_K I , U ?_L I M I T_H I 
POSITION_LO, . UP_LIMIT_LO 
GotWakeUp 



; Set position as at the up limit 



WakeDnLimit : 
ld 
ld 



POSITION_HI , DN_LIMIT_HI 
POSITION LO, DN LIMIT LO 



Set position as at the down limit 



GotWakeUp: 



ld B ST ATE, STATE 

ld OnePass, STATE 



; Back up the state and 

; clear the one-shot 



SET ROLLING/FIXED MODE FROM NON-VOLATILE MEMORY 



call 
SetRadioMode : 



SetRadioMode 
SET INTERRUPTS 



Set the radio mode 

Continue on 



ld SKIPRADIO, #NOEECOMM 

ld ADDRESS, #MODEADDR 

call READMEMORY 

Id RadioMode, MTEM PL 



; Set skip radio flag 
Point to the radio mode flag 
; Read the radio mode 
; Set the proper radio mode 
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clr 

tin 

jr 

call 
ret 



SKIPRADIO 

RadioMode, #ROLL_MASK 
nz, StartRoll 

FixedNums 



Re-enable the radio 

Do we want rolling numbers 



StartRoll : 



call RollNums 
ret 



INITERRUPT INITILIZATION 
SET INTERRUPTS: 



Id 


IPR, #00011010B 


Id 


I MR, # ALL_ON_ I MR 


. IF 


TwoThi rtyThree 


Id 


IRQ, #01000000B 


. ELSE 




Id 


IRQ, #00000000b 


.ENDIF 




ei 





set the priority to timer 
turn on the interrupt 



set the edge clear int 
Set the edge, clear ints 

enable interrupt 



SfSlESET SYSTEM REG 



. IF 



TwoThi rtyThree 



ill 



If* 



Id 
Id 
Id 

clr 



Id 
WDT 



RP, # WATCH DOG_GROU F 
smr, #00100010B 
peon, #01111110B 

RP 

.ENDIF 

PREO, #00000101B 



reset the xtal / number 

reset the peon no comparator output 

no low emi mode 

Reset the RP 



; set the prescaler to / 1 for 4Mhz 
; Kick the dog 



MAIN LOOP 
MAINLOOP: 



cp PrevPass, PassCounter 

jr 2, PassPointCurrent 



PassPointChanged : 



Id 


SKI PRADIO, #NOEECOMM 


Id 


ADDRE S S , # LAS T S T ATE AD DR 


call 


READMEMORY 


di 




Id 


MTEMPH, PassCounter 


Id 


PrevPass, PassCounter 


ei 




call 


WRITEMEMORY 


clr 


SKIPRADIO 



/Compare pass point counter to backup 
;If equal, EE PROM is up to date 



; Disable radio EEPROM communications 
; Point to the pass point storage 
; Get the current GDO state 
; Lock in the pass point state 
Store the current pass point state 
Clear the one-shot 



Write it back to the EEPROM 



PassPointCurrent : 
; 4-22-97 
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CP EnableWorkLight, S10000000B 

JR NE, LightOpen 

TM pO,#LIGHT_ON 

JR NZ,GetRidOf It 

LD MTEMPL, #OFFH 

LD MTEMPH, #OFFH 

JR Commit ToMem 
GetRidOf It : 

LD MTEMPL, #00H 

LD MTEMPH, #00H 
CommitToMem: 

LD SKIPRADIO, #NOEECOMM . 

LD ADDRESS , # IRLIGHTADDR 

CALL WR I TEMEMOR Y 

CLR SKIPRADIO 

XOR pO, #WORKLIGHT 

LD EnableWorkLight, #01100000B 



;is the debouncer set? if so write and 
; give feedback 



rturn on the IR beam work light function 



; turn off the IR beam work light function 



: write to memory to store if enabled or not 
;set address for write 



toggle current state of work light for feedback 



LightOpen : 
cp 

f=j ] r 

*0 tm 

IB ^ 

"TestBeamBreak : 



LIGHT_TIMER_HI, # OFFH 
nz, TestBeamBreak. 
pO, #LIGHT_ON 
nz, LightSkip 



;» tm 
m jr 

114-22-97 
LD 

\J CALL 
: C CLR 

iH cp 
^ J* 

U cp 
jr 

call 
or 

LightSkip: 
;4-22-S7 

AND 



cp 
jr 
cp 
jr 

clr 
clr 
Id 
Id 

call 

cp 

jr 

cp 

jr 

dec 
call 



AOBSF, #10000000b 
z, LightSkip 



SKIPRADIO, #NOEECOMM 
ADDRESS, # IRLIGHTADDR 
READMEMORY 
SKIPRADIO 
MTEMPL, #DISABLED 
EQ, LightSkip 

STATE, #2 
nz, LightSkip 
SetVarLight 
pO, #LIGHT_ON 



AOBSF, #0I111111B 



HOUR_T I ME R_H I , # 0 1 CH 
ult, NoDecrement 
HOUR_TIMER_LO, #02 OK 
ult, NoDecrement 

HOUR_TIMER_KI 

HOUR_TIMER_LO 

SKI PRADIO, #NOEECOMM 

ADDRESS, #DURAT 

READMEMORY 

MTEMPH, # HOURS 

nz, NoDecrement2 

MTEMPL, #00 

z, NoDecrement2 

MTEMPL 
WRITEMEMORY 



; if light timer not done test beam break 
; if the light is off test beam break 



; Test for broken beam 
r if no pulses Staying blocked 

; else we are intermittent 

;Trun off radio interrupt to read from e2 



; don't forget to zero the one shot 
;Does e2 report that IR work light function 
;is disabled? IF so jump over light on and 

; test for the up limit 
r if not goto output the code 

; Set worklight to proper time 
; turn on the light 



; Clear the one shot, for IR beam 
; break detect . 

If an hour has passed, 
then decrement the 
temporary password timer 



; Reset hour timer 



Disable radio EE read 

Load the temporary password 

duration from non-volatile 

If not in timer mode, 

then don't update 

If timer is not done, 

decrement it 



; Update the number of hours 



NoDecreirieni: ; 



tm AOBSF, #01000000b 

jr z, NoDecrement 2 



If the poll radio mode flag is 
set, poll the radio mode 
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call 
and 

NoDecrement2 : 



SetRadioMode 
AOBSF, #10111111b 



Set the radio mode 

; Clear the flag 



clr 

and 

clr 

Id 

Id 

or 

and 

Id 

cp 

jr 

cp 

jr 
Id 
jr 

MCLEARVAC : 
□ clr 
^ET VACCHANGE: 



clr 
Id 
Id 
Id 
Id 

call 
clr 



jttOVACCHG : 
i cp 

11 3^ 



111 



cp 
jr 

cp 
jr 

cp 
jr 



D r 

ReadUpLimit : 

Id 
Id 

call 

di 

Id 

Id 

clr 

add 

adc 

CalcMaxLoop: 
inc 
add 
adc 

GotMaxPFoint 
ei 
clr 
tm 
jr 
cp 



SKIPRADIO 
AOBSF, #001000llb 
DOG 2 

P01M, #P01M_INIT 
P3M, #P3M_INIT 

P2M_SHADOW, #P2M_ALLINS 
P2M_SHADOW, #P2M_ALL0UTS 
P2M, P2M_SHADOW 
VACCHANGE , # OAAH 
nz,NOVACCHG 
VAC FLAG, 8 0FFH 
2 , MCLEARVAC 
VAC FLAG , # 0 FFH 
SETVACCHANGE 

VAC FLAG 

VACCHANGE 

SKIPRADIO, #NOEECOMM 
ADDRESS, #VACATIONADDR 
MTEMPH, VAC FLAG 
MTEMPL, VAC FLAG 
WRITEMEMORY 
SKIPRADIO 

STACKFLAG, #OFFH 
nz , NOCHANGEST 

L_A_C, #070H 

uge, SkipReadLimits 

STATE , #UP_DI RECTI ON 
z, ReadUpLimit 

STATE , # DN_D I RECT I ON 
z, ReadDnLimit 

SkipReadLimits 



SKI PRADIO, #NOEECOMM 
ADDRESS, #UPLIMADDR 
READMEMORY 



; Re-enable radio reads 

; Clear the single break flag 

; clear the second watchdog 

; set mode p00-p03 out p04-p07in 

; set port3 p30-p33 input analog mode 

; p34-p37 outputs 

; Refresh all the P2M pins which have are 
; always the same when we get here 
; set port 2 mode 

; test for the vacation change flag 
if no change the skip 

; test for in vacation 
if .in vac clear 

; set vacation 
set the change 

; clear vacation mode 

; one shot 

; set skip flag 

; set the npn vol address to the VAC flag 

; store the vacation flag 

9 

write the value 

; clear skip flag 

; test for the change flag 
; if no change skip updating 

If we're in learn mode 

then don't refresh the limits! 

; If we are going to travel up 
; then read the up limit 

; If we are going to travel down 
; then read the down limit 

; No limit on this travel... 



; Skip radio EE PROM reads 
; Read the up limit 



UP_LIMIT_HI, MTEMPH ; 
UP_L*IMIT_LO, MTEMPL 
FirstRun 
MTEMPL, #10 
MTEMPH, #00 

FirstRun 

MTEMPL, #LOW(PPOINTPULSES) ; 
MTEMPH , #HIGH ( PPOINTPULSES ) 
nc, CalcMaxLoop 



Calculate the highest possible value for pass count 
Bias back by 1" to provide margin of error 



Count pass points until value goes positive 



SKIPRADIO 

PassCounter, #01000000b 
z, CounterGoodl 

DN_LIMIT_HI, #HIGH( PPOINTPULSES - 35) ; If the down limit i 
ugt, CounterlsNegl ; then the counter can be negative 



Test for a negative pass point counter 
If not, no lower bounds check needed 

low enough , 
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ult, ClearCount 



DN_LIMIT_LO, 8LOW(PPOINTPULSES - 35) 
uge, CounterlsNegl ; 



3r 
cp 
jr 

ClearCount : 

and PassCounter, SlOOOOOOOb 

jr CounterGoodl 
CounterlsNegl : 

or PassCounter, #01111111b 

CounterGoodl : 

cp UP_LIMIT_HI, #0FFH 

jr nz, TestUpLimit2 

cp UP_LIMIT_LO, #OFFH 

jr z, - LimitlsBad 

j r Limi t s Are Done 

TestUpLimit2 : 

cp UP_LIMIT_HI, #ODOH 

jr ule, LimitlsBad 

jr LimitsAreDone 

ReadDnLimit : 



Else, it should be zero 



; Reset the pass point counter to zero 

; Set the pass point counter to -1 

Test to make sure up limit is at a 
; a learned and legal value 



Look for up limit set to illegal value 
; If so, set the limit fault 



1 1 f 

m 



ii i 



Id 
Id 

call 

di 

Id 

Id - 

ei 

clr 

cp 

jr 

cp 

jr 

jr 



SKI PRADIO, #NOEECOMM 
ADDRESS, #DNLIMADDR 
READMEMORY 

DN_LIMIT_HI, MTEMPH 
DN_LIMIT_LO, MTEMPL 

SKI PRADIO 
DN_LIMIT_HI, #00H 
nz, TestDownLimit2 
DN_L I MI T_LO , #00H 
z, LimitlsBad 
LimitsAreDone 



; Skip radio EE PROM reads 
Read the down limit 



*Pest Do wn Limit 2 : 

If) cp DN_LIMIT_HI, #020H 

;~ jr ult, LimitsAreDone 

itiimitlsBad : 

1 3 Id FAULTCODE, #7 

j_i call SET_STOP_STATE 

* jr LimitsAreDone 

SkipReadLimits : 
LimitsAreDone : 



Test to make sure down limit is at a 
a learned and legal value 



Look for down limit set to illegal value 
If not, proceed as normal 

Set the "no limits" fault 
; Stop the GDO 



Id SKI PRADIO, #NOEE'COMM 

Id ADDRESS , # LASTSTATEADDR 

call READMEMORY 

Id MTEMPH, PassCounter 

Id MTEMPL, STATE 

call WRITEMEMORY 

clr SKIPRADIO 

Id OnePass, STATE 

cp L_A_C, #Q77K 

jr nz, DontWriteLimits 

WriteNewLimits : 

cp STATE, #STOP 

jr nz, WriteUpLimit 

cp LIM_TEST_HI, #00 

jr nz, WriteUpLimit 

cp LIM_TEST_LO, £06 

jr ugt, WriteUpLimit 

BackOf fUpLimit : 

add. UF_LIM1?_LC, #06 

adc UP_LIMIT_KI, #00 

WriteUpLimit : 

Id SKIPRADIO, #NOEECOMM 



Turn off the radio read 

Write the current state and pass count 



DON'T update the pass point here! 



; Clear the one-shot 

Test for successful learn cycle 
If not, skip writing limits 



Test for (force) stop within 0.5" of 
the original up limit position 



Back off the up limit by 0.5 fl 
Skip radio EE PROM reads 
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ADDRESS, #UPLIMADDR 



MTEMPH, UP_LIMIT_HI 
MTEMPL, UP_LIMIT_LO 

WRITEMEMORY 

ADDRESS, #DNLIMADDR 

MTEMPH, DN_L I M I T_H I 
MTEMPL, DN LIMIT LO 



Id 
di 
Id 
Id 
ei 

call 
WriteDnLimit 
Id 
di 
Id 
Id 
ei 

call ' WRITEMEMORY 
WritePassCount : 

Id ADDRESS, # LASTS TATE ADDR 

Id MTEMPH, PassCounter 

Id MTEMPL, STATE 

call WRITEMEMORY 

clr SKIPRADIO 

clr L_A_C 

or ledport , #ledh 

tSontWriteLimits : 



Read the up limit 



i i E 



! ; \ 



srp #LEARNEE_GRP 

clr STACK FLAG 

Id SKIPRADIO, #NOEECOMM 

Id address , #CYCCOUNT 

call READMEMORY 

inc mtempl 

j r n 2 , COUNTER 1 DONE 

inc mtemph 

j r n z , COUNTER2 DONE 

call " WRITEMEMORY 

inc address 

call READMEMORY 

inc mtempl 

jr nz, COUNTER2DONE 
mtemph 



U inc 

ISOUNTER2DONE: 

call WRITEMEMORY 

Id address, #CYCCOUNT 

call READMEMORY 



and 

or 

Id 

Id 

Id 

call 
jr 

COUNTER1DONE: 
call 

CDONE : 

clr 

NOCHANGEST : 
call 
di 
cp 
jr 

RESET: 

jp 

TESTRPM: 
cp 
jr 
cp 
jr 
ei 



Read the up limit 



mtemph, #00001111B 
mtemph, #30H 
ADDRESS, MTEMPH 
mtempl , DN FORCE 
mtemph, UP FORCE 
WRITEMEMORY 
CDONE 

WRITEMEMORY 
SKIPRADIO 



LEARN 

BRPM_COUNT, RPM_COUNT 
2, TESTRPM 

START 

BRPM_TIME_OUT, RPK_TIME_OUT 
nz, RESET 

BFORCE_ IGNORE , FORCEIGNORE 
nz, RESET 



; Write the current state and pass count 
Update the pass point 



Leave the learn mode 
turn off the LED for program mode 



set the register pointer 
; clear the flag 
; set skip flag 

'; set the non vol address to the cycle c 
; read the value 
increase the counter lower byte 

increase the counter high byte 

store the value 

; get the next bytes 

; read the data 
increase the counter low byte 

increase the vounter high byte 

save the value 

; read the data 

find the force address 



set the address 
read the forces 



write the value 

done set the back trace 

got the new address 

; clear skip flag 

; do the learn switch 
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di 
cp 
jr 
cp 
jr 
cp 

ei 

TESTRS232: 



BAUTO_DE LAY , AUTO_DELAY 

nz , RESET 

BCMD_DEB, CMD_DEB 

nz , RESET 

BSTATE , STATE 

nz, RESET 



IS 

13 



3« 



$*5232 JumpTa 
p 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
IP 
• P 
IP 
jP 



Of\r 






tern 


RS COUNTER, #0000111 IB 




DP 


nz, SKIPRS232 


; then 1 


cp 


rs c omnia nd, # V 




3P 


ugt, ClearRS^J^ 




cp 


rs command, # u 




jP 


ult, ClearRS232 




cp 


rscommand, #*< 1 




jr 


nz , NotRs3C 




call 


GOtKSjC 




DP 


SKIPRS232 




cp 


rscommand, # ' > ' 






nz , NotRs3E 




call 


GotRs3E 




jP 


SKIPRS232 




E: 
Id 


rs_temp_hi, #HIGH (RS232 JumpTable 


-(3*'0')) 


Id 


rs_temp_lo, #LOW (RS232 JumpTable- 




add 


rs_temp_lo, rscommand 




adc 


rs_temp_hi, #00 




add 


rs temp lo, rscommand 




adc 


rs_temp_hi, #00 




add 


rs temp_lo, rscommand 




adc 


rs_temp_hi, #00 




call 


@rs temp 




jP 


SKIPRS232 





If we are at the end of a word, 



test for in range 
if out of range skip 
If we are reading 
go straight there 



If we are writing EE PROM 
go straight there 



; address pointer to table 
; Offset for ASCII adjust 



addrei- ^w^.^v-* . . ^ v 

ASCII adjust 

look up the jump 3x 

look up the jump 3x 

look up the jump 3x 

call this address 
done 



P 
3P 
P 
P 

p 

P 
P 
P 
P 
P 
p 

DP 



ble: 

GotRs30 
GotRs31 
GotRs32 
GotRs33 
GotRs34 
GotRs35 
GotRs36 
GotRs37 
GotRs38 
GotRs39 
GotRs3A 
GotRs3B 
GotRs3C 
GotRs3D 
GotRs 3E 
GotRs3F 
GotRs 4 0 
GotRs 41 
GotRs 4 2 
GotRs 4 3 
GotRs 4 4 
GotRs 4 5 
GotRs4 6 
GotRs47 
GotRs4? 
GotRs 4 9 
GotRs4 A 
GotRs4E 
GotRs4C 
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jp 


GotRs4 D 


jp 


GotRs4E 


jp 


GotRs4F 


jp 


GotRsSO 


jp 


GotRsSl 


jp 


GotRs52 


jp 


GotRs53 


jp 


GotRs54 


jp 


GotRs55 


jp 


GotRs56 



ClearRS232: 

and RS_COUNTER, #11110OO0b ; clear the RS232 state 

SKIPRS232 : 

UpdateForceAndSpeed : 

; Update the UP force from the look-up table 

to the proper registers 
the proper unsealed 
from the ROM table 

Offset to point to the 

proper place in the table 
x2 

x3 (three bytes wide) 



the ROM bytes 



by our current force level 
to get our proper force number 

Update the force registers 



; Update the DOWN force from the look-up table 

the proper unsealed 
from the ROM table 

Offset to point to the 

proper place in the table 
x2 

x3 (three bytes wide) 



the ROM bytes 



by our current force level 
to get our proper force number 





srp 


#FORCE_GROUP 






- Id 


f orce_add_hi , 


#HIGH (force table) 




Id 


force_add_lo, 


#LOW (fcrce_table) 




di 








add 


f orce_add_lo, 


upf orce 


: 

: P 


adc 


f orce_add_hi , 


#00 




add 


f orce_add_lo, 


upf orce 


Ill 


adc 


f orce_add_hi , 


#00 




add 


f orce_add_lo, 


upf orce 




adc 


f orce_add_hi , 


#00 




ei 








ldc 


force temp of 


, @fcrce add 




incw 


force_add 






ldc 


force^temp hi 


, @force_add 


ill 

3 ~ 


incw 


force_add 




; : 
1 « * 


ldc 


force_temp lo 


, @force add 


o 


Id 


Divisor, PowerLevel 




call 


ScaleTheSpeed 






di 








Id 


UP_ FORCE HI, 


f orce_temp_hi 




. Id 


UP_FORCE_LO, 


f orce_temp_lo 




ei 







Point 
Fetch 
value 



Fetch 



; Divide 
; Scale 



Id 


f orce_add_hi , 


#HIGH (force table) 


Id 


force_add_lo. 


#LOW (force_table) 


di 






add 


f orce_add_lo, 


dnf orce 


adc 


f orce_add_hi , 


#00 


add 


force_add_lo. 


dnf orce 


adc 


force_add_hi, 


#00 


add 


f orce_add_lo. 


dnf orce 


adc 


f orce_ add_hi , 


#00 


ei 






ldc 


f orce_temp^of , 


6f orce_add 


incw 


force_add 




ldc 


fore e_t emp_h i , 


@f orce_add 


incw 


force add 




ldc 


f o r c e_t emp_ 1 c , 


@ force_add 



Fetch 
value 



Fetch 



Id Divisor, PowerLevel ; Divide 

call ScaleTheSpeed ; Scale 
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di 
Id 
Id 
ei 



DN 
DN~ 



FORCE_HI, 
FORCE LO, 



f orce_temp_hi 
force_temp_lo 



Update the force registers 



Scale the minimum speed based on force setting 



cp 


STATE , # DN_DI RECTI ON 


; If we're traveling down. 




z, SetDownMinSpeed 


; then use the down force pot for min. speed 


SetUpMinSpeed 






di 




; Disable interrupts during update 


Id 


MinSpeed, UPFORCE 


; Scale up force pot 


jr 


MinSpeedMath 


; 


SetDownMinSpeed : 




di 




i 


Id 


MinSpeed, DN FORCE 


; Scale down force pot 


MinSpeedMath: 






sub 


MinSpeed, #24 


; pot level - 24 


jr 


nc, UpStep2 


truncate off the negative number 


clr 


MinSpeed 


i 


UpStep2 : 






rcf 




; Divide by four 


rrc 


MinSpeed 




U . rcf 






\Q rrc 


MinSpeed 




jfi add 
5= cp 


MinSpeed, #4 


Add four to find the minimum speed 


MinSpeed, #12 


Perform bounds check on minimum speed,. 


M id 


ule, MinSpeedOkay 


; Truncate if necessary 


MinSpeed, #12 




4pnSpeedOkay : 






P ei 




; Re-enable interrupts 



Make sure the worklight is at the proper time on power-up 



cp LinePer, #36 

jr ult, TestRadioDeadTime 

cp LIGHT_TIMER_HI, #0FFH 

jr z, TestRadioDeadTime 

cp LIGHT_TIMER_HI, #EURO_LIGHT_HI 

jr ule, TestRadioDeadTime 

call SetVarLight 



Test for a 50 Hz system 

; if not, we don't have a problem 
; If the light timer is running 
; and it is greater than 

the European time, fix it 



TestRadioDeadTime : 



cp R_DEAD_TIME, #25 

jp nz,MAINLOO? 

clr RadioC 

clr RFlag 

jp MAINLOOP 



; test for too long dead 
if not loop 

; clear the radio counter 
; clear the radio flag 
; loop forever 



Speed scaling (i.e. Division) routine 



ScaleTheSpeed : 



clr 
Id 

DivideLoop: 
rcf 
rlc 
rlc 
rlc 
ric 
cp 

sub 
or 

BitlsDone : 



TestReg 
loopreg, #24 



f orce_temp_lo 
f o r c e_t emp_h i 
f orce^temp_of 
TestReg 

TestReg, Divisor 

ult, Bills Dene 

TestReg, Diviscr 

f orce_temp_lo, #0G000001b 



djnz loopreg, DivideLoop 



; Loop for all 24 bits 



; Rotate the next bit into 
the test field 



Test to see if we can subtract 
If we can't, we're all done 
Subtract the divisor 
; Set the LSB to mark the subtract 



; Loop for all bits 
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Divide Done : 

; Make sure the result is under our 500 ms limit 

cp force_temp_of , #00 ; Overflow byte must be zero 

nz, ScaleDown ; 
f orce_jtemp_hi, #0F4H 
ugt, ScaleDown ; 

ult, DividelsGood ; if we're less,* then we're okay 

f orce__temp_lo, #024 H ; Test low byte 

ugt, ScaleDown ; if low byte is okay, 



cp 
jr 
jr 
cp 

DividelsGood: 
ret 



; Number is good 



ScaleDown : 
Id 
Id 
ret 



force_temp_hi, #0F4H 
force_temp_lo, #024H 



Overflow is never used anyway 



RS232 SUBROUTINES 
0" 



y^fSet Command Switch 
(l©tRs30: 

IS Id LAST_CMD, #0AAH 

,E 

call CmdSet 
~ jp NoPos 

Q"1 M 

^Clear Command Switch 
GotRs31 : 

\_ call CmdRel 

!«l jp NoPos 



0 

; set the last command as rs wall cmd 
set the command switch 



; release the command switch 



m"2" 

if; Set Worklight Switch 
fg>tRs32 : 

i=J call LightSet 

|=i jp NoPos 



; set the light switch 



; Clear Worklight Switch 

GotRs33: 

clr LIGHT_DEB 
jp NoPos 



; Release the light switch 



; Set Vacation Switch 

GotRs34 : 

call VacSet 
jp HoPos 



Set the vacation switch 



; Clear Vacation Switch 

GotRs35: 

clr VAC_DEB 
jp NoPos 



; release the vacation switch 



; Set smart switch 

GotRs36: 

call SmartSet 
jp NoPos 



; "7" 

; Clear Smart switch set 
GotRs37 : 
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call SmartRelease 

jp NoPos 

; "8" 

; Return Present state and reason for that state 
GotRs38: 

Id RS 2 32 DAT, STATE 

or RS232DAT, STACKREASON 

jp LastPos 

; "9" 

; Return Force Adder and Fault 
GotRs39: 

Id RS 2 32 DAT, FAULTCODE ; insert the fault code 

jp LastPos 



; Status Bits 
GotRs3A: 

clr 

tm 

jr 

(□ or 

*0 

&©okForBlink : 



: : t 



call 
tm 

or 



ReadLight : 



tm 
or 



RS232DAT 
P2, #01000000b 
z, LookForBlink 
RS 2 32 DAT, # 00000001b 



LookFor Flasher 
P2, #BLINK_PIN 
nz, ReadLight 
RS232DAT, #00000010b 



P0, #000000106 
z, C3ADone 

RS232DAT, #00000100b 



; Reset data 

; Check the strap 

; If none, next check 

; Set flag for strap high 



; If flasher is present, 
then indicate it 



read the light 



C3ADone : 



cp CodeFlag, #REGLEARN 

jr ult, LookForPass 

or RS 2 32 DAT, #00010000b 



; Test for being in a learn mode 
; If so, set the bit 



LookForPass : 



tm PassCounter, #01111111b 

jr z, LookFor Prot 

tern PassCounter, #01111111b 

jr z, LookFor Prot 

or RS232DAT, #00100000b 



Check for above pass point 
If so, set the bit 



LookForProt : 
tm 
or 

LookForVac : 



AOBSF, #10000000b 

nz, LookForVac 

RS 2 32 DAT, #01000000b 



; Check for protector break/block 
; If blocked, don't set the flag 
; Set flag for protector signal good 



cp VACFLAG,#00B 

jp nz, LastPos 

or RS232DAT, #00001000b 

jp LastPos 



; test for the vacation mode 



; Return L_A_C 
GctRs3B: 

Id RS232DAT, L_A__C 

jp LastPos 



; read the LAC 
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; Read a word of data from an EE PROM address input by the user 
GotRs3C: 

cp RSJTOUNTER, #01 OH 

jr ult, FirstByte 

cp RS_COUNTER, S080H 

jr ugt, OutputSecond 



SecondByte : 



; If we have only received the 

; first word, wait for more 

; If we are outputting, 

; output the second byte 



Id SKIPRADIO, # OFFH 

Id ADDRESS, RS232DAT 

call READMEMORY 

Id RS232DAT, MTEMPH 

Id RS_TEMP_LO, MTEMPL 

clr SKIPRADIO 

jp MidPos 



Read the memory at the specified 
address 

Store into temporary registers 



OutputSecond : 



II 



Id 

jP 



*HirstByte : 

P inc 
: ~" ret 



RS232 DAT , R S_TEM P_LO 
LastPos 



RS COUNTER 



13 

(g Exit learn limits mode 
sGptRs3D: 
cp 

S=r Clr 

ib jp 



L_A_C, #00 

Z, NOPOS 

L_A_C 

ledport, #ledh 
NoPos 



Output the second byte of the read 



Set to receive second word 



; If not in learn mode, 
; then don't touch the learn LED 
; Reset the learn limits state machine 
turn off the LED for program mode 



IS Write a word of data to the address input by the user 



IGotRs3E: 



cp 


RS_ 


^COUNTER, #01 FH 




z, 


SecondByteW 


cp 


RS_ 


_COUNTER, #02FH 


jr 


z, 


ThirdByteW 


cp 


RS_ 


_COUNTER, #03FH 


jr 


2, 


FourthByteW 



FirstByteW : 
DataDone : 



xnc 
ret 



RS COUNTER 



Set to receive next byte 



SecondByteW : 



Id 

jr 



RS_TEMP_HI, RS232DAT 
DataDone 



Store the address 



ThirdByteW: 



Id RS_TEMP_L0, RS232DAT 

jr DataDone 



Store the high byte 



FourthByteW : 



cp RS_TEMP_KI, #03FH 

jr ugt, FailedWrite 



Test for illegal address 
If so, don't write 
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Id SKIPRADIO, #OFFH 

Id ADDRESS, RS_TEMP_HI 

Id MTEMPH, RS_TEMP_LO 

Id MTEMPL, RS 2 32 DAT 

call WRITEMEMORY 

Clr SKIPRADIO 

Id RS2 32 DAT, #00H 

jp LastPos 



; Turn off radio reads 
Load the address 
and the data for the 
EE PROM write 



Re-enable radio reads 
Flag write okay 



FailedWrite: 



Id 
jP 



RS232DAT, #OFFH 
LastPos 



Flag bad write 



; Suspend all communication for 30 seconds 
GotRs3F: 

clr RSCOMMAND 



DP 



NoPos 



Throw out any command currently 
running 

Ignore all RS232 data 



T Force Up State 
^otRs40 : 



13 
W 



Mont up : 



cp STATE, #DN_DIRECTION 

jr z, dontup . 

cp STATE, #AUTO_REV 

jp 2, NoPos 

cp STATE, #UP_POSITION 

jp 2, NoPos 

Id REASON, #00H 

call SET_UP_DI RESTATE 

jp NoPos 

Id REASON, #00K 

call SET_AREV_STATE 

jp NoPos 



Up Force Down State 
GotRs41: 
cp 
jP 



STATE, #5h 

2 , NOPOS 



; If traveling down, make sure that 
; the door autoreverses first k 
; If the door is autoreversing or 
; at the up limit, don't let the 
up direction state be set 

Set the reason as command 



Set the reason as command 

; Autoreverse the door 



test for the down position 



clr REASON 

call SET_DN_D I RESTATE 

jp NoPos 



Set the reason as command 



; "B" 

; Force Stop State 
GotRs42: 

clr REASON 

call SET_STOP_STATE 

jp NoPos 



; Set the reason as command 



; "C" 

; Force Up Limit State 
GotRs4 3: 

clr ' REASON 

call SET_UP_POS_STATE 

jp NoPos 



; Set the reason as command 



; Force Down Limit State 
GotRs4 4 : 

clr REASON 

call SET_DN_POS_STATE 

jp NoPos 



; Set the reason as command 
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; Return min. 
GotRs45: 
Id 
cp 

jP 
Id 

jP 



force during travel 

RS232 DAT , M I N_R PM__H I 

RS_COUNTER, #090h 

ult,MidPos 

RS 2 3 2 DAT , M I N_R PM_LO 

LastPos 



Return high and low 
; bytes of min. 



force read 



; Leave RS232 mode — go back 
GotRs4 6: 



:o scanning for wall control switches 



clr 

Id 

clr 

Id 

ret 



RsMode 

STATUS, # CHARGE 
RS_COUNTER 
rscommand, #0FFH 



Exit the rs232 mode 

; Scan for switches again 
; Wait for input again 
; turn off command 



0" G " 

;f|(No Function) 



G©tRs4 7 : 



DP 



NoPos 



|&4 5 Second 
< 

G6tRs48: 



search for pass point the setup for the door 



: s 



Id 

Id 

Id 

Id 

call 

Id 

call 

Id 

Id 

Id 

and 

call 

Id 

DP 



SKIPRADIO, # OFFH 
MTEMPH, #OFFH 
MTEMPL, # OFFH 
ADDRESS , #UPLIMADDR 
WRITEMEMORY 
ADDRESS , # DNLIMADDR 
WRITEMEMORY 
UP_LIMIT_HI, 
UP_LIMIT_LO, 
POSITION_HI, 
PassCounter , 
SET_UP_DI RESTATE 
OnePass, STATE 
NoPos 



*fHIGH (SetupPos) 
#LOW (SetupPos) 
#040H 

#10000000b 



; Disable radio EE PROM reads / writes 
Erase the up limit and down limit 
in EE PROM memory 



Set the door to travel 
to the setup position 
Set the current position to unknown 

; Reset to activate on first pass point seen 
; Force the door to travel 
; without a limit refresh 



; Return radio drop-cut timer 

GotRs4 9: 

clr RS 2 32 DAT 

cp RTO, #RDROPTIME 

jp uge, LastPos 

com RS232DAT 

jp LastPos 



; Initially say no radio on 
; If there's no radio on, 
then broadcast that 

; Set data to FF 



; Return current position 
GotRs4A: 

Id RS 2 32 DAT, POSITION_HI " 

cp RS_COUNTER, #090H 

jp ult,MidPos 

Id RS232DAT, POSITION_LC 

jp Last Fos 



Test for no words out yet 
If not, transmit high byte 



; "K" 

; Set radio Received 
GotRs43: 

cp L_A_C, #070H 



If we were positioning the up limit, 
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ult, Norma IRS Radio*" 
z, FirstRSLearn 
L_A_C, #071H 
nz, NoPos 



jr 
cp 
jP 

ReLearnRS : 
Id 

call 
DP 

FirstRSLearn: 
Id 

call 
jP 

NormalRSRadio : 

clr LAST_CMD 

Id RADIO_CMD, #0AAH 

jp NoFos 



L_A_C, #072H 
SET_UP_DIR_STATE 
NoPos 

L_A_C, #07 3H 
SET_UP_POS_STATE 
NoPos 



chen start the learn cycle 

9 

If we had an error, 

; re-learn, otherwise ignore 

Set the re-learn state 



Set the learn state 

; Start from the "up limit* 



; mark the last command as radio 
; set the radio command 
; return 



; Direct-connect sensitivity test — toggle worklight for any code 
GotRs4C: 

RTO ; Reset the drop-out timer 

CodeFlag, #SENS_TEST ; Set the flag to test sensitivity 



clr 
Id 
jP 



13 

i©OtRs4D: 

■F dp 



NoPos 



NoPos 



\% "N" 

If we are within the first 4 seconds and RS232 mode is not yet enabled, 
s ^ then echo the nybble on P30 - P33 on all other nybbles 
; (A.K.A. The 6800 test) 

§OtRs4E: 

1=1 



cp 
jP 

di 

Id 

clr 

Id 

Id 

Id 

WDT 



SDISABLE, #32 
ult, ExitNoTest 



COUNT_HI, #002K 

COUNT_LO 

P01M, #00000100b 

P2M, #00000000b 

P3M, #00000001b 



If the 4 second init timer 

; is done, don't do the test 

; Shut down all other GDO operations 

; Set up to loop for 512 iterations, 

; totaling 13.056 milliseconds 

; Set all possible pins of micro. 

; to outputs for testing 

; Kick the doc- 



TimingLoop: 



clr REGTEMP 

Id REGTEMP2, P3 

and REGTEMP2 , #00001 11 lb 

or REGTEMP, REGTEMP2 

swap REGTEMP 2 

or REGTEMP, REGTEMP2 

Id P0, REGTEMP 

Id P2, REGTEMP 

Id P3, REGTEMP 

decw COUNT 

jr nz, TimingLoop 

jp START 



; Create a byte of identical nybbles 
from P30 - P33 to write to all ports 



Echo the nybble to all ports 

Loop for 512 iterations 
When done, reset the system 



Return max. force during travel 



GotRs4 F : 

Id RS232DAT, P32_MAX_HI 

cp RS_COUNTER, #090h 

; jp ult,MidPos 



Return high and low 

; bytes of max. force read 
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Id RS232DAT, P32_MAX_LO 

jp LastPos 



; W P" 

; Return the measured temperature range 
GotRsSO: 

jr NoPos 



Return address of last memory matching 
radio code received 
GotRsSl: 



Id 

jr 



RS232DAT, RTEMP 
LastPos 



Send back the last matching address 



; Set Rs232 mode — No ultra board present 
^^eturn Version 
6gtRs52 : 

UltraBrd 



;^ clr 
SltIntoRs232 

;E ld 
cp 

jr 
Id 



is 



l s 



LsckedlnNoCR: 



RS232DAT, #VERSIONNUM 
RsMode, #00 
ugt, LockedlnNoCR 
RS232DAT, #0BBH 



RsMode, #32 
LastPos 



Clear flag for ultra board present 

Initially return the version 

If this is the first time we're 

locking RS232, signal it 

Return a flag for initial RS232 lock 



|ySet Rs232 mode — Ultra board present 

jf.iReturn Version 

GotRs53: 



14 



NoPos 



Range test toggle workiight whenever 
is received 
GotRs54 : 



a good memory-matching code 



clr RTO ; Reset the drop-out timer 

ld CodeFlag, #RAN*GE7EST ; Set the flag- to test sensitivity 

jr NoPos 



; M U" 

; (No Function) 
GotRs55: 

jr NoPos 



; "V" 

; Return current values of up and down force pots 
GotRs56: 



ld RS232DAT, UPFORCE 

cp RS_COUNTER, #0SQh 

jp ult,Mid?os 

ld RS232DAT, DN FORCE 

jr LastPos 



MidPos: 



or 
inc 



RS_COUNTER, # I 0O0OOOOE 
RS COUNTER 



Return values of up and down 

force pots . 



Set the output mode 
Transmit the next byte 
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RSDone 



exit 



LastPos : 
Id 
Id 
jr 

ExitNoTest : 
NoPos : 

clr 
Id 

RSDone: . 

Id 

Id 

or 

and 

ret 



RS_COUNTER , #111100008 
rscommand, SOFFH 
RSDone 



RS_COUNTER 
rscommand, #0FFH 

RsMode, #32 
STATUS, tRSSTATUS 
P3, #CHARGE_SW 
P3, #-DIS SW 



; set the start flag for last byte 
; Clear the command 



; Exit 



; Wait for input again 
; turn off command 



Set the wall control to RS232 
Turn on the pull-ups 



Radio interrupt from a edge of the radio signal 



iHADIO_INT : 
ig push 
'"f srp 

P Id 

in id 

q tm 

14 jr 
1 tm 

!- ^ r 
Q dec 
RTIMEOK: 



RP 

#RadioGroup 

rtemph, TOEXT 

rtempl , TO 

IRQ, #00010000B 

z, RTIMEOK 

rtempl, #10000000B 

2, RTIMEOK 

rtemph 

R DEAD TIME 



.IF TwoThirtyThree 
and IMR, #111111108 
.ELSE 

and IMR , #11111100B 
. ENDIF 



; save the radio- pair 

; set the register pointer 

; read the upper byte 

; read the lower byte 
; test for pending int 
; if not then ok time 

; test for timer reload 

; if not reloaded then ok 

; if reloaded then dec high for sync 

; clear the dead time 



; turn off the radio interrupt 
; Turn off the radio interrupt 



Id 
Id 
sub 
sbc 

RT I ME DONE : 
tm 
jr 

INACTIVETIME: 
cp 
jr 
jP 

GOINACTIVE: 



RTimeDH , RTimePH 
RTimeDL, RTimePL 
RTimeDL, rtempl 
RTimeDH, rtemph 

P3, #00000100B 
nz , ACTIVETIME 

RINFILTER, #0FFH 
z, GOINACTIVE 
RADIO EXIT 



find the difference 



in past time and the past time in temp 

; test the port for the edge 

; if it was the active time then branch 

; test for active last time 
if so continue 

; if not the return 



.IF TwoThirtyThree 
or IRQ,"#01000000B 
. ENDIF 



set the bit setting direction to pos edge 



clr RINFILTER 

Id rtimeih, RTimeDH 

Id rtimeil , RTimeDL 

Id RTimePH, rtemph 

Id RTimePL, rtempl 

CP radioc,#01H 

JP NZ , RADIO EXIT 



set flag to inactive 

transfer difference to inactive 

transfer temp into the past 



; inactive time after sync bit 
;exit if it was not sync 
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TM 


RadioMode, #ROLL 


MASK ;If in fixed mode, 


JR 


z, FixedBlank 


;no number counter exists 


CP 


rtimeih, #OAH 


; 2. 56ms for rolling code mode 


JP 


ULT,RADIO_EXIT 


;pulse ok exit as normal 


CLR 


radioc 


;if pulse is longer, bogus sync, 


3P 


RADIO_EXIT 


; return 



FixedBlank: 
CP 
JP 
CLR 

DP 

ACTIVETIME: 
cp 
jr 
jr 

GOACTIVE: 



rtimeih, #014H 

ULT,RADIO_EXIT 

radioc 

RADIO_EXIT 

RINFILTER, #00H 
Z, GOACTIVE 
RADIO EXIT 



r test for the max width 5.16ms 
;pulse ok exit as normal 
rif pulse is longer, bogus sync, restart sync search 

; return 

; test for active last time 

; if so continue 

; if not the return 



.IF 

and 

. ENDIF 

Id 
Id 
id 
Id 
Id 



TwoThirtyThree 
IRQ, #00111111B 



u 

IB 
s p 

GotBothEdges : 
P ei 

cp radioc, #1 

jp ugt, INSIG 

. IF UseSiminor 

jp z, CheckSiminor 



RINFILTER, #OFFH 
rtimeah, RTimeDH 
rtimeal, RTimeDL 
RTimePH, rtemph 
RTimePL, rtempl 



.ENDIF 



13 



BlankSkip: 
SyncOk: 



inc radioc 

TM RFlag, #00100000B 

JR N2, BlankSkip 

cp " Radi oTimeOut ,#10 

jr ult , Clear Jump 

OR RFlag, #0C1000005 

cp rtimeah, #00h 

jr z,JustNoise 



TM RadioMode , #ROLL_MASK 

JR z,Fixedsync 

CP rtimeah, #09h 

JR uge , JustNoise 

JR SET1 



clear bit setting direction to neg edge 

transfer difference to active 
transfer temp into the past 



; enable the interrupts 

; test for the blank timing 

; if not then in the middle of signal 

; Test for a Siminor tx on the first bit 

set the counter to the next number 

;Has a valid blank time occured 



; test for the min 10 ms blank time 
if not then clear the radio 

; blank time valid! no need to check 

test first the min sync 

; if high byte 0 then clear the radio 



; checking sync pulse width, fix or Roll 
; time for roll 1/2 fixed, 2 . 3ms 



Fixedsync : 
SET1: 

SYNC 1 FLAG : 



cp rtimeah, #012h 

jr uge, JustNoise 



clr PREVFIX 

cp rtimeah, SyncThresh 

jr uge, SYNC3FLAG 

tm RFlag, #01 000000b 

j r z , SETADCODE 



test for the max time 4 . 6mS 
if not clear 



; Clear the previous "fixed" bit 
test for 1 or three time units 
; set the sync 3 flag 

;Was a sync 1 word the last received? 
if not; then this is an A (or. D) code 



SETBCCODE : 



Id 



radio3h, radiolh 



; Store the last sync 1 word 
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JustNoise : 



SETADCODE : 



BCCODE : 



SYNC 3 FLAG : 



Eg>NESETl: 
KADIO_EXIT: 

P 



GlearJuinp: 

i'y 

! . I 

|~ -IF 
S-imRadio : 

SimBitOne : 

SimBitZero : 
RotatelnBit : 



Id radio31, radloll 

or RFlag, #00000110b 

and RFlag, #1 1110111b 

j r BCCODE 

CLR radioc 

JP RADIO EXIT 



;Set the B/C Code flags 
; Clear the A/D Code Flag 



;Edge was noise keep waiting for sync bit 



or 


RFlag, #00001000b 




or 


RFlag, #01000000b 


■ set the sync 1 memory flag 


clr 


radiolh , 


' clear the memory 


clr 


radioll 




clr 


COUNT 1H 


• clear the. memory 


clr 


COUNT 1L 




jr 


DONESET1 


r do the 2X 


and 


RFlag, #10111111b 


; set the sync 3 memory flag 


clr 


radio3h 


; clear, the memory 


clr 


radio 31 


clr 


COUNT 3 H 


; clear the memory 


clr 


COUNT 3 L 




clr 


ID B 


; Clear the ID bits 


and 


SKIPRADIO, # LOW(-NOINT) ;Re-enable radio ints 


pop 


rp 




iret 


; done return 


or 


P2, #10000000b ; turn 


of the flag bit for clear radio 


3P 


ClearRadio ; clear the radio signal 


UseSiminor 




tm 


rtimeah, #10000000b ; Test 


for inactive greater than active 


jr 


nz, SimBitZero 


; If so, binary zero received 


scf 




; Set the bit 




RotatelnBit 





rcf 



rrc 
rrc 
rrc 
rrc 
rrc 
rrc 



cp 
jP 
jP 
jP 



CodeTO 
CodeTl 
CodeT2 
CodeT3 
CodeT4 
CodeTS 

radioc 

radioc, # (49 -r 128) 
ugt, CLEARRADIO 
z , KnowSimCode 
RADIO EXIT 



Shift the new bit into the 
radio word 



increase the counter 

Test for all 48 bits received 
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CheckSiminor : 



tm RadioMode, #ROLL_MASK ; If not in a rolling mode, 

jr z, INSIG ; then it can't be a Siminor transmitter 

cp RadioTimeOut, #35 ; If the blank time is longer than 35 ms, 

jr ugt, INSIG ; then it can't be a Siminor unit 



or RadioC, #10000000b 

clr ID B 



. ENDIF 



INSIG: 



ISigOk: 



ASigOk: 



*0 



|3 

if* 



.IF 



AND RFlag, #1101 111 IB 

cp rtimeih, #014H 

j r uge , Clear Jump 

cp rtimeih, #00h 

jr z, Clear Jump 

cp rtimeah, #014H 

jr uge, Clear Jump 

cp rtimeah, #00h 

jr z, Clear Jump 

sub rtimeal, rtimeil 

sbc rtimeah, rtimeih 

UseSiminor 

tm RadioC, #10000000b 

jr nz, SimRadio 



Set the flag for a Siminor signal 
; No ID bits for Siminor 



; clear blank time good flag 
test for the max width 5.16 
if too wide clear 
test for the min width 

; if high byte is zero, pulse too narrow 

test for the max width 
if too wide clear 
if greater then 0 then signal ok 
; if too. narrow clear 

; find the difference 



If this is a Siminor code, 
then handle it appropriately 



. ENDIF 



®SDIFF2: 

III 

w 
o 

&EGDIFF2: 



BITIS3: 

BIT2COMP: 
BITIS2: 

BITIS1: 

GOTRADBIT : 



ADDRADBIT: 



tm rtimeah, #10000000b 

jr nz , NEGDIFF2 

jr POSDIFF2 

cp rtimeah, BitThresh 

jr ult,BITIS2 

jr BITIS3 



com rtimeah 

cp rtimeah, BitThresh 

jr ult,BIT2COMF 

jr BITIS1 

Id RADIOBIT, #2h 

jr GOTRADBIT 

com rtimeah 

Id RADIOBIT, #lh 

jr GOTRADBIT 

com rtimeah 

Id RADIOBIT, #0h 

clr rtimeah 

clr rtimeal 

clr rtimeih 

clr rtimeil 
ei 

SetRpToRadio2Group 

srp #Radio2Group 

tm rf lag, #01000000b 

jr nz,RC!INC 



; find out if neg 

; use 1 for ABC or D 



; test for 3/2 

; mark as a 2 



; invert 
test for 2/1 
mark as a 2 



; set the value 

; invert 
; set the value 



; invert 
; set the value 



; clear the time 



; enable int rrupts — REDUNDANT 

; Macro for assembler error 
— this is what it does 
; test for radio 1/3 



RC3INC: 



tm 



RadioMode, #ROLL MASK 



;If in fixed mode, 
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jr z, Radio3F 

tm RadioC, #00000001b 

jr nz,COUNT3lNC 



; no number counter exists 
; test for even odd number 
if EVEN number counter 



Radio3INC: 



else radio 



Radio3R: 
Radio3F: 



call 

cp 

jr 



srp 
di 
Id 
Id 



SPECIAL BITS: 



SWITCHID: 

: 

i 

m 

FCC1INC: 

E 

o 

ih\ 

: r_: 

; _ : 

RadiolINC: 



SwitchBitl ; 
RadiolF: 



GETTRUEFIX: 



C0UNT3INC: 



cp 
jr 

Id 

add 

add 

add 

jr 

cp 
jr 
Id 
jr 



tm 
jr 
tm 
jr 



call 

cp 

jr 

tm 

jr 

cp 

jr 

Id 

srp 
di 



GETTRUEFIX 
RadioC, #14 
uge, SPECIAL_BITS 



#RadioGrcup 

pointerh, #Radio3H 
pointerl, #Radio3L 
AddAll 

RadioC, #20 
z,SWITCHID 

RTempH, id_b 
id_b, RTempH 
id_b, RTempH 
id_b, radiobit 
Radio3R 

id_b, #18 
uge, Radio3R 
sw_b, radiobit 
Radio3R 



;Get the true fixed bit 

; test the radio counter for the specials 
; save the special bits seperate 



Disable interrupts to avoid pointer collision 
get the pointer 



test for the switch id 
if so then branch 

save the special bit 
*3 
*3 

add in the new value 



; If this was a touch code, 
; then we already have the ID bit 
; save the switch ID 



RadioMode , #ROLL_MASK 
z, RadiolF 
RadioC, #00000001b 
nz,COUNTHNC 



;If in fixed mode, no number counter 

; test for even odd number 
if odd number counter 



GETTRUEFIX 
RadioC, #02 
nz, RadiolF 
rflag, #00010000b 
z, SwitchBitl 
idjD, . #16 
ult, RadiolF 

sw_b, radiobit 

#RadioGroup 



; else radio 

;Get the real fixed code 

;If this is bit 1 of the 1ms code, 

;then see if we need the switch ID bit 

;If this is the first word received, 

;then save the switch bit regardless 
;If we have a touch code, 

;then this is our switch ID bit 

; Save touch code ID bit 



Disable interrupts to avoid pointer collision 



Id 


pointerh, #RadiolH 


; get the pointer 


Id 


pointerl, #RadiolL 




jr 


AddAll 




; Chamberlain proprietary fixed 


code 


; bit 


decryption algorithm goes 


here 


ret 






Id 


rollbit , radiobit 


; Store the rolling bit 


srp 


#RadioGroup 




di 




; Disable interrupts to 


Id 


pointerh, #COUN73H 


; get the pointer 


Id 


pointerl, #COUNT3L 




jr 


AddAll 





avoid pointer collision 



COUNT 1 INC: 
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AddAll: 



ALLADDED: 
DLLWORD? : 



m 

n 

m 



'ISCCODE: 



FIRST20: 



la 


roiiDit, raaiooit 




; Store th rolling bit 


srp 


#RadioGroup 








di 






r 


Disable interrupts to avoid pointer colli 


la 


pointern, flCOUNTiH 




! 


get the pointers 


la 


pomteri, scountil 




§ 




j r 


A0GA1 1 








Id 


addvalueh, @pointerh 


i 


get the value 


Id 


addvaluel , @pointerl 








add 


addvaluel, Gpointerl 




add x2 




adc 


addvalueh, @pointerh 


» 






add 


addvaluel, Gpointerl 


t 


add x3 




adc 


addvalueh, @pointerh 


t 






add 


addvaluel , RADIOBIT 


t 


add in 


new number 


adc 


addvalueh, #00h 








Id 


gpointerh, addvalueh 


* 


save the value 


Id 


@pointerl , addvaluel 








ei 








Re-enable interrupts 


inc 


radioc 


* 


increase the counter 


cp - 


radioc, MaxBits 






test for full (10/20 bit) word 


DP 


nz , RRETURN 






if not then return 




Disable interrupts until word 


is handled 


or 


SKIPRADIO, #NOINT 




i 


Set the flag to disable radio interrupts 


. IF 


TwoThirtyThree 








and 


IMR, #111 1111 OB 




I 


turn off the radio interrupt 


. ELSE 










and 


I MR, #11111100B 




! 


Turn off the radio interrupt 


.ENDIF 








clr 


RadioTimeOut 




Reset 


the blank time 


cp 


RADIOBIT, #00H 






If the last bit is zero, 


jP 


z, ISCCODE 






then the code is the obsolete C code 


and 


RFlag, #11111101B 






Last digit isn't zero, clear B code flag 


tm 


RFlag, #00010000B 






test flag for previous word received 


jr 


nz, KNOWCODE 




r 


if the second word -received 


or 


RFlag, #000100005 




r 


set the flag 


clr 


radioc 




clear 


the radio counter 


DP 


RRETURN 




i 


return 



.IF UseSiminor 



KnowS imCode : 

; Siminor proprietary rolling code decryption algorithm goes here 



Id radiolh, #0FFH 

clr MirrorA. 

clr MirrorB 

jp CounterCorrected 



Set the code to be incompatible with 
the Chamberlain rolling code 



. ENDIF 



KNOWCODE : 

tm RadioHode, #ROLL_KASK ;If not in rolling mode, 

jr z, CounterCorrected ; forget the number counter 

; Chamberlain proprietary counter decryption algorithm goes here 
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CounterCorrected : 

srp 
clr 
tm 
DP 

cp 
jr 
or 



NoTCode : 



STORECODE : 



Id 

call 
Id 
cp 
jP 

tm 
jr 



CompareCounters : 



s| 

in 

u 



FlxedOnly : 
U 



CmdNotOpen : 



CheckLight : 



LearningLight : 



cp 

jP 
cp 
DP 
cp 

DP 
cp 
DP 



cp 

jP 
cp 

jp 

cp 

jp 

cp 

jp 

cp 

jr 



tm 
jr 



tm 

jP 
tm 

jP 

tm 
jr 
Id 
Id 

jr 



#RadioGroup 
RRTO 

SKIPRADIO, #NOEECOMM 
nz, CLEARRADIO 

ID_B, #18 
ult, NoTCode 
RFlag, #00000100b 

ADDRESS, # VACATION AD DR 
READMEMORY 
VACFLAG, MTEMPH 
CodeFlag, # REG LEARN 
nz , TESTCODE 

RadioMode, #ROLL_MASK 
z, FixedOnly 



; clear the got a radio flag 
test for the skip flag 

if skip flag is active then donot look at EE mem 

;If the ID bits total more than 18, 

; then indicate a touch code 

; set the non vol address to the VAC flag 
; read the value 
; save into volital 
test for in learn mode 

; if out of learn mode then test for matching 

;If we are in fixed mode, 
r then don't compare the counters 



PCounterA, MirrorA 
nz, STORENOTMATCH 
PCounterB, MirrorB 
nz, STORENOTMATCH 
PCounterC, MirrorC 
n z , STORENOTMATCH 
PCounterD, MirrorD 
nz, STORENOTMATCH 



PRADI01H, radiolh 
nz, STORENOTMATCH 
PRADI01L, radioll 
nz, STORENOTMATCH 
PRADI03H, radio3h 
nz, STORENOTMATCH 
PRADI03L, radio3I 
nz, STORENOTMATCH 

AUXLEARNSW, #116 
ugt, CMDONLY 



CMD_DEE, # 10000000b 
nz, CmdOrOCS 



Test for counter match to previous 

; if no match, try again 
Test for counter match to previous 

; if no match, try again 
Test for counter match to previous 

; .if no match, try again 
Test for counter match to previous 

; if no match, try again 



test for the match 

if not a. match then loop again 

test for the match 

if not a match then loop again 

test for the match 

if not a match then loop again 

test for the match 

if not a match then loop again 



; If learn was not from wall control, 
then learn a command only 



If the command switch is held, 

then we are learning • command or o/c/s 



LIGHTJDE5, # 10000000b 
z, CLEARRADI02 
VAC_DEE, # 10000000b ; 
Z, CLEARRADI02 

RadioMode, #ROLL__MASK 
z, CMDONLY 

CodeFlag, #LRN LIGHT ; 
BitMask, #01010101b ; 

CMDONLY 



; If the light switch and the lock 
switch are being held, 
then learn a light trans. 



Only learn a light trans, if we are in 
the rolling mode. 



CmdOrOCS.: 



tm LIGHT_DE5, # 10000000b 

jr nz, CMDONLY 



If the light switch isn't being held, 
then see if we are learning o/c/s 



CheckOCS: 
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CMDONLY: 



WriteOverOCS : 



STOREMATCH : 



m 

SetAsFixed : 

13 

SetAsRoll: 
HxiteMode: 



ACODE : 



RollMem: 



FixedMem: 

AddressZero: 
GOT AAD DRESS : 



tm 


VAC DEB, #100b0000b ; 


If the 


vacation switch isn't held, 


jP 


z, CLEARRADI02 






then it must be a normal command 


tm 


RadioMode, #ROLL MASK 






Only learn an o/c/s if we are in 


jr 


z, CMDONLY 






the rolling mode. 


tm 


RadloC, #100000000 ; 


If the 


bit for siminor is set, 


jr 


nz, CMDONLY 




! 


then don't learn as an o/c/s Tx 


Id 


CodeFlag, #LRNOCS 




i 


Set flag to learn o/c/s 


Id 


BitMask, SlOlOlOlOb ; 








call 


TESTCODES 






test the code to see if in memory now 


cp 


ADDRESS, #0FFH 






If the code isn't in memory 


j r 


2 , STOREMATCH 








dec 


ADDRESS 








jP 


READ YTOWR I TE 








CD 


RadioMode, #ROLL_TEST 






If we are not testing a new mode, 


jr 


ugt, SameRadioMode ; 


then 


don't switch 


Id 


ADDRESS, #MODEADDR ; 


Fetch 


the old radio mode, 


call 


REA DM EMORY 




* 


change only the low order 


tm 


RadioMode, #ROLL_MASK 






byte, and write in its new value. 


J £ 


nz, SetAsRoll ; 








Id 


RadioMode, # FIXED MODE 






call 


FixedNums 






Set the fixed thresholds permanently 


jr 


WriteMode 








Id 


RadioMode, #ROLL_MODE 




9 




call 


Rol INums 




i 


Set the rolling thresholds permanently 


Id . 


MTEMPL, RadioMode 




r 




call 


WRITEMEMORY 








tm 


RFlag, #000000108 






If the flag for the C code is set, 


jp 


nz, CCODE 






then set the C Code address 


tm 


RFlag, #00000100B 






test for the b code 


jr 


nz, BCODE 






if a B code jump 


Id 


ADDRESS, #2BH 


set 


the address to read the last written 


call 


READMEMORY 




r 


read the memory 


inc 


MTEMPH 


add 


2 


to the last written 


inc 


MTEMPH 








tm 


RadioMode , #ROLL_MASK 






If the radio is in fixed mode, 


jr 


z, FixedMem 






then handle the fixed mode memory 


inc 


MTEMPH 


Add 


another 2 to the last written 


inc 


MTEMPH 








and 


MTEMPH , #11111 1 00B 




i 


Set to a multiple of four 


cp 


MTEMPH , # 1 FH 




t 


test for the last address 


jr 


ult, GOTAADDRESS 




t 


If not the last address jump 


jr 


AddressZero 




i 


Address is now zero 


and 


MTEMPH, #11111110B 




t 


set the address on a even number 


cp 


MTEMPH, #17H 




t 


test for the last address 


jr 


ult, GOTAADDRESS 




r 


if not the last address jump 


Id 


MTSMrH, #00 






set the address to 0 


Id 


ADDRESS, #2BH 


set 


the address to write the last written 


Id 


RTemp, MTEMPH 


save 


the address 


LD 


MTEMPL, MTEMPH 


both bytes same 
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CCODE : 



BCODE: 



BRoll: 



BFixed: 



fiebDEOK : 



READYTOWRITE: 
tlgFIXSTORE : 

!□ 



in 
in 



LowByte : 

UpByte : 
MaskDone : 



call 

Id 

jr 

tm 

jP 
Id 



tm 
jr 

cp 
DP 
Id 
jr 

cp 
jr 
cp 
jr 
DP 

Id 

call 

tm 

inc 

Id 

Id 

Id 

Id 

call 

call 

com 

Id 

call 

tm 
jr 

and 
and 



WRITEMEMORY 
ADDRESS, rtemp 
READYTOWRITE 



; write it 
set the address 



Normal : 



LearnLight : 



LearnOCS : 



cp 
cp 



clr 



ana 

cp 
DP 
and 



RadioMode, #ROLL_MASK ; If in rolling code mode, 

nz, CLEARRADIO ; then HOW DID WE GET A C CODE? 

ADDRESS, #01AH ; Set the C code address 

READYTOWRITE ; Store the C code 



Radi oMode , # ROLL_MASK 
z, BFixed 

SW_B, # ENTER 
nz, CLEARRADIO 
ADDRESS, #20H 
READYTOWRITE 

radio3h, #90H 
nz,BCODEOK 
radio31, #29H 
nz, BCODEOK 
CLEARRADIO 

ADDRESS, # 18H 

WRITECODE 

RadioMode , #ROLL_MASK 
Z, NOWRITE STORE 
ADDRESS 

RadiolH, MirrorA 
Radiol L, MirrorB 
Radio3H*, MirrorC 
Radio3L, MirrorD 
WRITECODE 

SetMask 
BitMask 

ADDRESS, #RTYPEADDP. ; 
READMEMORY 

RFlag, #10000000b 
nz, UpByte 

MTEMPL, BitMask 
MaskDone 

MTEMPH, BitMask 

BitMask 

CodeFlag, #LRN LIGHT ; 
z, LearnLight ; 
CodeFlag, #LRNOCS 
z, LearnOCS 



BitMask 
BMReady 



; If in fixed mode, 
; handle normal touch code 

If the user is trying to learn a key 
; other than enter, THROW IT OUT 
Set the address for the rolling touch code 



test for the 00 code 
test for the 00 code 

; SKIP MAGIC NUMBER 
set the address for the B code 

; write the code in radiol and radio3 



If we are in fixed mode, 

then we are done 

Point to the counter address 

Store the counter into the radio 

for the writecode routine 



Fetch the radio types 

; Find the proper byte of the type 
; Wipe out the proper bits 



If we are learning a light 

set the appropriate bits 

; If we are learning an o/c/s, 
; set the appropriate bits 



Set the proper bits as command 



BitMask, #01ClGlGib ; Set the proper bits as worklight 
BMReady ; Bit mask is ready 



SW_B, #02K 

nz, CLEARRADI02 

BitMask, #10101010b 



; If 'open* switch is not being held, 
; then don't accept the transmitter 
Set the proper bits as open/close/stop 
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BMReady : 

LowByt2 : 

UpByt2: 
MaskDon2 : 

NOWRITESTORE: 



STORENOTMATCH 



13 



p 
In 

5 ~" 

TESTCODE : 



!5 : 



ZZLearn : 



tm 


RFlag, #10000000b 




; Find the proper byte of the type 


jr 


nz, UpByt2 




i 


or 


MTEMPL, BitMask * 




; Write the transmitter type in 


jr 


MaskDon2 




9 


or 


MTEMPH, BitMask 




; Write the transmitter type in 


call 


WRITEMEMORY 




; Store the transmitter types 


xor 


pO, #WORKLIGHT 




toggle light 


or 


ledport, #ledh 




turn off the LED for program mode 


Id 


LIGHT1S, #244 




turn on the 1 second blink 


Id 


LEARNT, #OFFH 




set learnmode timer 


clr 


RTO 




; disallow cmd from learn 


clr 


CodeFlag 




2 Clear anv 1 parni nn f lane 


jp 


CLEARRADIO 




§ return 


Id 


PRADIOIH, radiolh 




; transfer radio into past 
; 


Id 


PRADIOIL, radioll 




Id 


PRADI03H, radio3h 






Id 


PRADI03L, radio31 




; 


tm 


Radi oMode , # ROLL_MAS K 


; If we are in fixed mode, 


jp 


z, CLEARRADIO 




get the next code 


Id 


PCounterA, MirrorA 




transfer counter into past 


Id 


PCounterB, MirrorB 




Id 


PCounterC, MirrorC 






Id 


PCounterD, MirrorD 






jP 


CLEARRADIO 






cp 


ID_B, #18 




; If this was a touch code, 


jP 


uge, TCReceived 




; handle appropriately 


tm 


RFlag, #00000100b 




; If we have received a B code, 


jr 


z, AorDCode 




; then check for the learn mode 


cp 


22WIN, #64 




; Test 0000 learn window 


jr 


ugt, AorDCode 




if out of window no learn 



cp RadiolH, #90H 

jr nz, AorDCode 

cp RadiolL, #29K 

j r nz, AorDCode 



push RP 

srp #LEARNEE_GRP 

call SETLEARN 

pop RP 

jp CLEARRADIO 



AorDCode : 



FS1 : 



FS2: 



cp L_A_C, #07 OH 

jr uge, FS1 

cp ' FAULTFLAG, #0FFH 

jr z,FSl • 

and ledport, #ledl 

call TESTCODES 

cp k_A_C, #07 OH 

jr uge, FS2 

cp FAULTFLAG, #0FFH 

jr z,FS2 

or ledport , #ledh 



Test for in learn limits mode 

; If so, don't blink the LED 
; test for a active fault 

; if a avtive fault skip led set and reset 
turn on the LED for flashing from signal 

; test the codes 
Test for in learn limits mode 

; If so, don't blink the LED 
; test for a active fault 

; if a avtive fault skip led set and reset 
turn off the LED for flashing from signal 
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cp 


ADDRESS, #OFFfT 




jr 


nz, GOTMATCH 




3P 


CLEARRADIO 


SimRoll Check: 








inc 


ADDRESS 




inc 


ADDRESS 




call 


READMEMORY 




Id 


CounterC, MTEMPK 




Id 


CounterD, MTEMPL 




cp 


CodeT2, CounterC 




jr 


nz, UpdateSCode 




CD 


CodeT3, CounterD 




jr 


nz, UpdateSCode 




DP 


CLEARRADIO 


UpdateSCode : 








Id 
Id 

call 


MTEMPH, CodeT2 
MTEMPL CodeT3 
WRITEMEMORY 




sub 


CodeT3, CounterD 


! r 






I # t 


tm 


CodeT2, # 10000000b 




JP 






jp 


MatchGoodSim 








1 : 


tm 


RadioMode, #ROLL_MJ 


« = i 

|y 

* ; \ 


jr 


z, MatchGood2 


tm 


RadioC, #10000000b 




"1 T" 


1 1 C- 1 iJi.ltlI\UJ. J-L>ilCUJ\ 


l = 


tm 


BitMask, #101010101 




jr 


z, RollCheckB 




cp . 


SW_B, #02 




jr 


nz, MatchGoodOCS 


RollCheckB: 








call 


TestCounter 




cp 


CMP, # EQUAL 




jP 


z, NOTNEWMATCH 




cp 


CMP, #FWDWIN 




DP 


nz, CheckPast 


MatchGood: 








Id 


RadiolH, MirrorA 




Id 


RadiolL, MirrorB 




Id 


Radio3H, MirrorC 




Id 


Radio3L, MirrorD 




dec 


ADDRESS 




call 


WRITECODE 


MatchGoodOCS : 






MatchGoodSim: 






or 


RFlag, #00000001B 




cp 


RTO, #RDROPTIME 




jp 


uit , NOTNEWKATCH 




cp 


ADDRESS, #23K 




jr 


z, MatchGood2 



test for the not matching state 

; if matching the send a command if needed 
; clear the radio 



Point to the rolling' code 
(Note: High word always zero) 
Point to rest of the counter 
Fetch lower word of counter 



If the two counters are equal, 
then don't activate 



Counters equal -- throw it out 



Always update the counter if the 
fixed portions match 



Compare the two codes 



; If the result is negative, 
; then don't activate 
; Match good — handle normally 



; If we are in fixed mode, 
then the match is already valid 

If this was a Siminor transmitter, 

; then test the roll in its own way 

If this was NOT an open/close/stop trans, 
then we must check the rolling value 

; If the o/c/s had a key other than '2' 
; then don't check / update the roll 



; Rolling mode — compare the counter values 

; If the code is equal, 

; then just keep it 
If we are not in forward window, 
then forget the code 



Store the counter into memory 
to keep the roll current 



Line up the address for writing 



; set the flag for recieving without error 
; test for the timer time out 

if the timer is active then donor reissue cmd 

If the code was the rolling touch code, 
then we already know the transmitter type 
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LowerD: 

UpperD: 
TransType : 



HatchGood2 : 



TESTVAC: 

m 

O 

: FixedB: 



IU 

jTSTSDI SABLE: 

i rss 

13 



RADIOCOKMAND: 



zzwinclr : 



BDONTSET: 



ReLearning : 



FirstLearn : 



NormalRadio : 



call 


SetMask 






; S t the mask bits prop rlv 


Id 


ADDRESS, #RTYPEADDR 




Fetch the transmitter config. bits 


call 


READMEMORY 








tm 


RFlag, # 10000000b 






; If we are in th upper word, 




nz, UpperD 






; check the upper transmitters 


and 


BitMask, MTEMPL 






; Isolate our transmitter 


jr 


TransType 






; Check out transmitter . type 


and 








; Isolate our transmitter 


tm 


BitMask/ #01010101b 




Test 


for light transmitter 


3 r 


nz, LightTrans 






; Execute light transmitter 


tm 


BitMask, #10101010b 


i 


Test 


for Open/Close/Stop Transmitter 


jr 


nz, OCSTrar.s 




Execute open/close/stop transmitter 










; Otherwise, standard command transmitter 


or 


RFlag, #00000001B 






; set the flag for recieving without error 


cp 


RTO, #RDROPTIME 






; test for the timer time out 


3P 


Ul t , NOTNEWMATCH 






; if the timer is active then donot reissue cmd 


cp 


VAC FLAG , #005 


f 


test 


for the vacation mode 


jP 


Z , TSTSDI SABLE 


I 


if not in vacation mode test the system disable 


tm 


RadioMode, #ROLL MASK 






jr 


z, FixedB 








cp 


ADDRESS, #23H 


* 


If this was a touch code, 


3P 


nz, NOTNEWMATCH 






; then do a command 


3P 


TSTSDISABLE 








cp 


ftUUKLbb, ft 1 r r. 




test 


for the B code 


DP 


nz, NOTNEWMATCH 






; if not a B not a match 


cp 


SDISABLE , #32 


f 


test 


for 4 second 


jP 


ult , NOTNEWMATCH 






; if 6 s not up not a new code 


clr 


RTO 






; clear the radio timeout 


<=P 


ONE? 2 , #00 






.; test for the 1.2 second time out 


jp 


nz , NOTNEWMATCH 






; if the timer is active then skip the command 


clr 


RTO 






; clear the radio timeout 


tm 


RFlag, #00000100b 






; test for a B code 


j r 


z, BDONTSET 






; if not a b code donot set flag 


clr 


ZZKIN 






; flag got matching B code 


Id 


CodeFlag, #BRECEIVED 




flag 


for aobs bypass 


cp 


L_A_C, #070H 


t 


If we were positioning the up limit. 


"i r 


ult, NormalRadio 






;' then start the learn cycle 




z, FirstLearn 






cp 


L_A_C, #071H 




If we had an error, 


"i o 
Jr 


nz, CLEARRADIO 






; re-learn, otherwise ignore 


Id 


L_A_C, #072H 


f 


Set 


the re-learn state 


call 


SET_UP DIR STATE 








3P 


CLEARRADIO 






r 


Id 


L_A_C, #073H 




Set 


the learn state 


call 


SET_UP_POS_STATE 






; Start from the "up limit" 


jp 










clr 


LAST_CKD 






; mark the last command as radio 
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Id RADIO_CMD, # OAAH 

jp CLEARRADIO 



set the radio command 
return 



LightTrans: 



clr RTO 

cp ONEP2,#00 

jp nz, NOTNEWMATCH 

1 d S W_DATA , # L I GHT_SW 

jp CLEARRADIO 



; Clear the radio timeout 
; Test for the 1.2 sec. time out 
; If it isn't timed out, leave 
Set a light command 
; return 



OCSTrans : 



cp S DISABLE , #32 

jp Ult, NOTNEWMATCH 

cp VAC FLAG, #00H , 

jp nz, NOTNEWMATCH 

clr RTO 

cp ONEP2, #00 

jp nz, NOTNEWMATCH 

cp SW_B, #02 

jr nz, CloseOrStop 



Test for 4 second system disable 
; if not done not a new code 

If we are in vacation mode, 

; don't obey the transmitter 

; Clear the radio timeout 

; test for the 1 . 2 second timeout 

; If the timer is active the skip command 

; If the open button is pressed, 
; then process it 



^enButt.on : 

5= 



XT 1 



f S 



cp STATE, #STOP 

jr z, OpenUp 

cp STATE, #DN_POSITION ; 

jr z, OpenUp 

cp STATE, # DN_D I RE C T I ON 

jr nz, OCSExit 

Id REASON, #010H 

call SET_AREV_STATE 

jr OCSExit 



If we are stopped or 

; at the down limit, then 
begin to move up 

If we are moving down, 
then autoreverse 
Set the reason as radio 



.OpenUp : 
SfebsExit : 



Id REASON, #01 OH 

call SET_U P_DI R_STATE 

jp CLEARRADIO 



Set the reason as radio 



CloseOrStop: 



cp SW_B, #01 

jr nz, Closer utt or. 



If the stop button is pressed, 
then process it 



StopButron : 



cp STATE, #UP_DIRECTION 

jr z, Stoplt 

cp STATE, #DN_DIRECTION 

jr z, Stoplt 

cp STATE, #AUTO_REV 

jr z, Stoplt 

jr OCSExit 



If we are moving or in 
the autoreverse state, 
then stop the door 



Stoplt : 



Id REASON, #01 OH 

call SET_STOP_STATE 
jr OCSExit 



; Set the reason as radio 



CloseButton : 



cp 
j - 
cp 

ir 



STATE , # U P_PCS I T ION 
z, Cieselt 
STATE, #STOP 
z, Closelt 
OCSExit 



If we are at the up limit 

; or stopped in travel, 
then send the door down 
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Closelt : 



SetMask: 



InLowerByte : 
EightOrTwelve 

ZeroOrFour : 

LSNybble: 

O 

'¥ourOrTwelve : 

ifi 

•F 

l^eroOrEight : 
f^ESTCODES: 

: 

ill 

\fst 
i set 

M 

f^RollCheck : 
NEXTCODE : 

HAVEMASK: 



Id 


REASON, S010H 




Set the reason as radio 


call 


SET_DN_DIR_STATE 






j r 








and 


RFlag, #01111111b 




; Reset the page 1 bit 


tin 


ADDRESS/ flllllUUUUD 


* 


If our address is on page 1, 


jr 


z, InLowerByte 




; then set the proper flag 


or 


RFlag, SlGOOOOOOb - 




* 


tm 


ADDRESS, # 00001000b 




Binary search to set the 


jr 


z, ZeroOrFour 


r 


proper bits in the bit mask 


Id 


BitMask, #11110000b 






jr 


LSNybble 






Id 


BitMask, #00001 11 lb 


r 




tm 


ADDRESS, # 00000100b 






j r 


z, ZeroOrEight 






and 


BitMask, #11001100b 






ret 








and 


BitMask, #00110011b 






ret 








Id 


ADDRESS, #RTY PEADDR 




Get the radio types 


call 


READMEMORY 






Id 


RadicTypes , MTEMPL 






Id 


RTypes2, MTEMPK 






tm 


RadioMode, #ROLL MASK 




jr 


nz, RollCheck 






clr 


RadioTypes 




* 


clr 


RTypes2 






clr 


ADDRESS 




; start address is 0 


call 


SetMask 




; Get the approprite bit n 


and 


BitMask, RadioTypes 




Isolate the current transmitte 



call 

cp 

jr 

cp 

jr 

inc 

call 

tm 

jr 

cp 

jr 

cp 

jr 

cp 

jr 

ret 



READMEMORY 

MTEMPH, radiclh 

nz , NOMATCH 

MTEMPL, radioll 

nz, NOMATCH 

ADDRESS 

READMEMORY 

BitMask, #10101010b 

nz, CheckOCSl 

CodeFlag, #LRNOCS 

z, CheckOCSl 

MTEMPH, radio3h 

nz, NOMATCH 2 

MTEMPL, radio31 

nz, NOMATCH 2 



read the word at this address 
test for- the match 

if not matching then do next address 
test for the match 

if not matching then do next address 
set the second half of the code 
read the word at this address 
If this is an Open/Close/Stop trans.,' 
then do the different check 

; If we are in open/close/stop learn mode, 
then do the different check 
; test for the match 

; if not matching then do the next address 
; test for the match 

; if not matching then do the next address 
; return with the address of the match 



CheckOCSl 



sub 
sbc 
cp 
jr 



MTEMPL, radio31 
MTEMPH, radio3h 
CodeFlag, SLRNOCS 
nz, Positive 



Subtract the radio from the memory 

If we are trying to learn open/close/stop 
then we must complement to be positive 
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Positive : 



com 
com 
add 
adc 

cp 
jr 
cp 

jr 
ret 



MTEMPL 
MTEMPH 
MTEMPL, #1 
MTEMPH, #0 

MTEMPH, #00 
nz, NOMATCH2 
MTEMPL, #02 
ugt, NOMATCH2 



Switch from ones complement to 2*s 
complement 

We must be within 2 to match properly 



Return with the address of the match 



NOMATCH : 
NOMATCH2 : 



ADDRESS 



set the address to the next code 



^NextAdd : 



jpOTNOMATCH : 
f HOTNEWMATCH : 



ill 



I 



inc 
tm 

jr 

inc 

inc 

cp 

jr 

Id 

cp 



Id 
ret 



clr 

and 

clr 

Id 

jP 



ADDRESS ; set the address to the next code 

RadioMode, #ROLL_MASK ; If we are in fixed mode, 

z, AtNextAdd ; then we are at the next address 

ADDRESS ; Roll mode -- advance past the counter 

ADDRESS 

ADDRESS , # 10H ; If we are on the second page 

nz, AtNextAdd ; then get the other tx. types 

RadicTypes, RTypes2 ; 



ADDRESS, #22H 
ult,NEXTCODE 



ADDRESS, #0FFH 



RTO 

RFlag, #00000001B 
radioc 

LEARNT, #0FFH 
RADIO EXIT 



test for the last address 

if not the last address then try again 



set the no match flag 
; and return 



; reset the radio time out 

; clear radio flags leaving recieving w/o error 
clear the radio bit counter 
set the learn timer "turn off" and backup 

; return 



^heckPast: 

Proprietary algorithm for maintaining 
rolling code counter 

Jumps to either MatchGood, UpdatePast or 'CLEARRADIO 



UpdatePast : 



CLEARRADI02 : 



CLEARRADIO: 



CLEARRADIOA: 



SKIPRTO: 



Id 


LastMatch, ADDRESS 


Store 


the last fixed code received 


Id 


PCounterA, Mirror A 


Store 


the last counter received 


Id 


PCounterB, MirrorB ' , 






Id 


PCounterC, MirrorC 






Id 


PCounterD, MirrorD , 






Id 


LEARNT, #0FFH ; Turn off the learn mode timer 


clr 


CodeFlag 






, IF 


TwoThirtyThree 






and 


IRQ, #00111111B 




clear the bit setting direction 


. ENDIF 








id 


RINFILTER, #0FFH 




set flag to active 


tm 


RFlag, #0000000!B 


§ 


test for receiving without error 




z, SKIPRTO 


r 


if flag not set then donot clear 


clr 


RTO 




clear radio timer 


clr 


radioc 


; clear 


the .radio counter 


clr 


RFlag 




clear the radio flag 
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clr ID_B 

jp RADIO EXIT 



CI ar the ID bits 
return 



TCReceived : 



cp L_A_C, #07 OH 

jr uge, TestTruncate 

cp FAULT FLAG, #0FFH 

jr z, TestTruncate 

and ledport, #ledl 

jr TestTruncate 



Test for in learn limits mode 

If so, don't blink the LED 
If no fault 
turn on the led 

Truncate off most significant digit 



TruncTC: 



sub RadiolL, #0E3h 
sbc RadiolH, #04Ch 



Subtract out 3*9 to truncate 



TestTruncate : 



m 



'fSotTC: 

(3 

in 

□ 



"TChecklD: 

Hi 

: 



cp RadiolH, #04Ch 

jr ugt, TruncTC 

jr ult, GotTC 

cp RadiolL, #0E3h 

jr uge, TruncTC 



Id ADDRESS, #TOUCHID 

call READMEMORY 

cp L_A_C, #07 OH ; 

jr uge, CheckID 

cp FAULT FLAG, #0FFH 

jr z, CheckID 

or ledport, #ledh 

cp MTEMPH, Radio3H 

jr nz, CLEARRADIO 

cp MTEMPL, Radio3L 

jr nz, CLEARRADIO 

call ■ TestCounter 

cp CMP, # EQUAL 

jp z, N OTN EWKAT CH ' 

cp CMP, # FWDWIK 

jr nz, CLEARPADIO 

; Counter good -- update it 

Id COUNT1H, RadiolH 

Id COUNTIL, RadiolL 



; If we are greater than 3^9, 
truncate down 



; Check to make sure the ID code is good 
, 

Test for in learn limits mode 
If so, don't blink the LED 

; If no fault, 

; turn off the LED 



Test the rolling code counter 
If the counter is equal, 
then call it the same code 



Back up radio code 



Id RadiolH, MirrorA 

Id RadiolL, MirrorB 

Id Radio3H, MirrorC 

Id Radic3L, MirrorD 

dec ADDRESS 

call WRITECODE 



;Write the counter 



Id RadiolH, COUNT1H 

Id RadiolL, COUNTIL 



Restore the radio code 



cp CodeFlac, # NORMAL 

jr z, NormTC 

cp CodeFIag, # LRNTEMP 

jp z, LearnTK? 

cp CodeFIag, # LRNDURTN 

jp z, LearnDur 

jp CLEARRADIO 



; Find and jumo to current mode 
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NormTC : 



Id 


ADDRESS , # TOUCH PERM 


; Compare the four-digit touch 


call 


READMEMORY 


; code to our permanent password 


cp 


RadiolH, MTEMPH 






nz , CheckTCTemp 




cp 


RadiolL, MTEMPL 






nz , CheckTCTemp 




cp 


SW_B, # ENTER 


; If the ENTER key was pressed, 


DP 


z, RADI OCOMMAN D 


; issue a B code radio command 


cp 


SW_B, # POUND 


; If the user pressed the pound key, 


jr 


z, TCLearn 


; enter the learn mode 



; Star key pressed -- start 30 s timer 




■TCLearn : 

iD 



clr LEARNT ; 

Id FLASH_COUNTER , #06h ; Blink the worklight three 

Id FLASH_DELAY, #FLASH_TIME ; times quickly 

1 d FLAS H_FLAG , # 0 FFH ; 

Id CodeFlag, #LRNTEMP ; Enter learn temporary mode 

jp CLEARRADIO 



Id FLASH^COUNTER, #04h ; Blink the worklight two 

Id FLAS H_DE LAY, #FLASH_TIME ; times quickly 

Id FLASH FLAG, #0FFH 



push RP 

srp # LEARN EE_GRP 

call SET LEARN 

pop RP 



Enter learn mode 



3P 



CLEARRADIO 



] §hec kTCTemp : 



Id ADDRESS , #TOUCHTEMP 

call READMEMORY 

cp RadiclH, MTEMPH 

jp nz , CLEARRADIO 

cp RadiolL, MTEMFL 

jp nz, CLEARRADIO 



Compare the four-digit touch 

code to our temporary password 



cp STATE , # DN_POS I T I ON 

jp nz, RAD I OCOMMAN D 



If we are not at the down limit, 
; issue a command regardless 



Id ADDRESS, #DURAT 

call READMEMORY 

cp MTEMPL, #00 

jp Z, CLEARRADIO 



If the duration is- at zero, 
then don • t issue a command 



cp MTEMPH, # ACTIVATIONS 

jp nz, RADI OCOMMAN D 

dec MTEMPL ; number 

call WRITEMEMORY 

jp RADI OCOMMAN D 



If we are in number of activations 
mode, then decrement the 
of activations left 



LearnTMP: 

cp SW_B, # ENTER 

jp nz, CLEARRADIO 

Id " ADDRESS, #TOUCHPERH 

call READMEMORY 

c p Radiol:-:, MTEM PH 

jp nz, TempGood 

cp RadiolL, MTEMPL 

jp z, CLEARRADIO 



If the user pressed a key other 

; then enter, reject the code 

If the code entered matches the 
; permanent touch code, 
; then reject the code as a 

temporary code 
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TempGood : 



LearnDur : 



Id ADDRESS, #TOUCHTEMP ; Write the code into temp. 



Id MTEMPH, RadiolH 

Id MTEMPL, RadiolL 

call WRITEMEMORY 



code memory 



Id FLASH_COUNTER, #08h ; Blink the worklight four 

Id FLASH_DELAY, #FLASK_TIME ; times quickly 

Id FLASH_FLAG , # 0 FFH 

; Start 30 s timer 

clr LEARNT 

Id CodeFlag, #LRNDURTN ; Enter learn duration mode 

jp CLEARRADIO 



p 
IS 
!3 

ii4umDuration : 

□ 

i 

isiioursDur : 



cp RadiolH, #00 

jp nz, CLEARRADIO 

cp Sw_B, # POUND 

j r z , NumDu r a t i on 

cp SW_B, # STAR 

jr z, HoursDur 

jp CLEARRADIO 



Id MTEMPH, #ACTIVATIONS 

j r Durationln 



If the duration was > 255, 

; reject the duration entered 

If the user pressed the pound 

; key, number of activations mode 
; If the- star key was pressed, 
; enter the timer mode 
; Enter pressed — reject code 



; Flag number of activations mode 



Id MTEMPH, #HOURS 



; Flag number of hours mode 



*3&urationIn : 



Id MTEMFL, Radicll 

Id ADDRESS , #DURA! 

call WRITEMEMORY 



Load in duration 

Write duration and mode 

into nonvolatile memory 



; Give worklight or.e long blink 

xor P0, #WORKLIGHT ; Give the light one blink 

Id LIGHT1S , #244 ; lasting one second 

clr CodeFlag ; Clear the learn flag 

jp CLEARRADIO 



Test Rolling Code Counter Subroutine 

Note: CounterA-D will be used as temp registers 



TestCounter : 



push 


RP 






srp 


#CounterGroup 






inc 


ADDRESS 


; Point 


to the rolling code counter 


call 


READMEMORY 


; Fetch 


lower word of counter 


Id 


counter a, MTEMPH 






Id 


count erb, MTEMPL 






inc 


ADDRESS 


; Point 


to rest of the counter 


call 


READMEMORY 


; Fetch 


upper word of counter • 


Id 


counter:, KT EM ? H 






id 


count ere, MTEMPL 







Subtract old counter tcountera-d) from current 
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counter (mirrora-d) and store in countera-d 



com 


countera 




; Obtain twos complement 


com'. 


counterb 






com 


. counterc 






com 


countefd 






add , 


counterd, 


#01H 




adc 


counterc, 


#00H 




adc 


counterb, 


#00H 




adc 


co.untera, 


#00H 




add 


counterd, 


mirrord 


; Subtract 


adc 


counterc, 


mirrorc 




adc 


counterb, 


mirrorb 




adc 


countera, 


minora 




, 


If the msb of counterd is. negative, check to see 




if we are 


inside the 


negative window 


tm 


counterd, 


#10000000B 




jr . 


2, CheckF 


vwdWin "• 





£pieckBackWin : 



i3 



cp countera, # OFFH 

jr nz, OutOf Window 

cp . counterb, # OFFH 

jr nz, OutOf Window 

cp counterc, #OFCH 

jr ult, OutOf Window 



Check to see if we are 

less than -0400H 

(i.e. are we greater than 

OxFFFFFCOOH) 



: £nBackWlri : 



Id CMP, #BACKWIN 

jr . CompDone 



Return in back window 



SCheckFwdWin: 



cp' countera, #00H 
jr nz, OutOf Window 

cp counterb , £ OCH 

jr nz,- OutOf Window 

cp counterc; #OC,H 

j r ' uge, Gu t O f W i ndow 



Check to see if we are less 
than 0C0O (3072 = 1024 
activations } 



cp counterc, #00H 

jr nz, InFwdWin 

cp counterd, #00H 

j r nz, InFwdWin 



CountersEqual : 



Id 
jr 



CMP, # EQUAL 
CompDone : 



; Return equal counters 



InFwdWin : 



Id' CMP, #FWDWIN 
j r CompDone 



- Return in forward window 



Out Of Window: 



Id 



CM? , # 0 : JTOFKI N 



; Return out of any window 



. Camp Done : 
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pop 
ret 



RP 



; Clear interrupt 

r 

ClearRadio: 



cp RadioMode, #ROLL_TEST 

jr ugt, MODE DONE 

tm T125MS, #00000001b 

jr z, SETROLL 



SETFIXED: 



Id RadioMode, #FIXED_TEST 

call FixedNums 
jp MODEDONE 



;If in fixed or rolling mode, 
; then we cannot switch 

;If our 'coin toss' was a zero, 

; set as the rolling mode 



SETROLL : 



Id 

call 



SO DE DONE : 

n 



clr 
clr 
clr 



KRETURN : 

pop 
□ iret 

FixedNums : 



I ! 



Id 
Id 
Id 
ret 



RadioMode , #ROLL_TES1 
RollNums 



RadioTimeOut 

RadioC 

RFlag 



RP 



BitThresh, #FIXTHR 
SyncThresh, #FIXSYNC 
MaxBits, #FIXBITS 



clear radio timer 
clear the radio counter 

; clear the radio flags 



reset the RP 
return 



RollNums : 



Id 
Id 
Id 
ret 



BitThresh, # DTHR 
SyncThresh, #DSYKC 
MaxBits, #DBITS 



rotate mirror LoopCount 



then add 



RotateMirrorAdd : 



rcf 
rlc 
rlc 
rlc 
rlc 
d jnz 



mirrord 
mirrorc 
mirrorb 
minora 

loopcount , RotateMirrorAdd 



; clear the carry 



loop till done 



Add mirror tc counter 



AddMirrorToCounter : 
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add count rd,mirrord 

adc count rcmirrorc 

adc count rb,mirrorb 

adc countera, mirror a 
ret 



LEARN DEBOUNCES THE LEARN SWITCH 80mS 

TIMES OUT THE LEARN MODE 30 SECONDS 

DEBOUNCES THE LEARN SWITCH" FOR ERASE 6 SECONDS 



LEARN: 





srp 


#LEARNEE_GRP 


; set 


the register pointer 




cp 


STATE, #DN POSITION 


; test 


for motor stoped 




jr 


z , TESTLEARN 










cp 


STATE, #UP POSITION 






test for motor stoped 




jr 


z, TESTLEARN 










cp 


STATE, #STOP 






• test for motor stoped 




jr 


z , TESTLEARN 










cp 


LAC, #074H 






• Test for traveling 


!□ 


jr 


z, TESTLEARN 










Id 


learnt, #0FFH 






; set the learn timer 




cp 


learnt, #240 






; test for the learn 30 second timeout 


: l_l 


jr 


nz, ERASETEST 


; if 


not then test erase 




jr 


learnof f 






; if 30 seconds then turn off the 


jT£STLEARN: 












cp 


learndb, #236 






,* test for the debounced release 


\Ti 


jr 


nz, LEARNNOTRELEASED 






; if debouncer not released then jump 



*£EARNRELEASED: 
!=3martRelease : 
i cp 



L_A_C, #07 OH 
nz, NormLearnBreak 



; Test for in learn limits mode 

; If not, treat the break as normal 



Id 

call 



REASON, #00H 
SET STOP STATE 



; Set the reason as command 



SormLearnBreak : 



= clr 


LEARNDB 




; clear the debouncer 


ret 






return 


LEARNNOTRELEASED : 






cp 


CodeFlag, #LRNTEMP 


;test for learn mode 


jr 


uge, INLEARN 




if in learn jump 


cp 


learndb, #20 




test for debounce period 


jr 


nz, ERASETEST 


; if not 


then test the erase period 


SETLEARN : 








call 


SmartSet 






ERASETEST: 








cp 


L_A_C, #07 OH 


; Test for in learn limits mode 


jr 


uge, ERASERELEASE 


i 


If so, DON'T ERASE THE MEMORY ■ 


cp 


learndb, #0FFH 




; test for learn button active 


jr 


nz, ERASERELEASE 


t 


if button released set the erase timer 


cp 


eraset , # 0FFH 




test for timer active 


jr 


nz, ERASETIMING 


* 


if the timer active jump 


clr 


eraset 


i 


clear the erase timer 


ERASETIMING: 








cp 


eraset, #48 




test for the erase period 


jr 


z, ERASETIME 


! 


if timed out the erase 


ret 






else we return 


ERASETIME: 








or 


ledport , #ledh 




; turn off the led 


Id 


skipradio, #NOEECOMM 




; set the flag tc skip the radio read 


call 


CLEARCODES 


t 


clear all codes in memory 


clr 


skipradio 


9 


reset the flag to skip radio 


Id 


learnt, #0FFH 


I 


set the learn timer 
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clr 
ret 



CodeFlag 



return 



SmartSet : 
cp 

jr 
Id 

call 



L_A_C, #07 OH 

nz, NormLearnMakel 

REASON, #00H 

SET_DN_NOBLINK 

Lea rnMake Done 



NormLearnMakel : 



cp L_A_C,. #074K 

jr nz, NormLearnMake2 

Id L_A_C, #07 5H 

Id REASON , #00H 

call SET_AREV_STATE 

jr LearnMakeDone 



NormLea rnMake 2 : 



clr 
Id 
and 
clr 
Id 
clr 
clr 
Id 

call 
;C clr 
]Lefa rnMake Done 



(0 



Id 
ret 



LEARNT 

CodeFlag, # REG LEARN 
ledport , #ledl 
VAC FLAG 

ADDRESS , # VACAT I ON A D DR 

MTEMPK 

MTEMPL 

SKIPRADIO, #NOEECOMM 
WR I TEMEMOR Y 
SKIPRADIO 

LEARN DB, #0FFH 



Test for in learn limits mode 
If not, treat normally 
Set the reason as command 



Test for traveling down 
If not, treat normally 
Reverse off false floor 
Set the reason as command 



; clear the learn timer 
; Set the learn flag 

; turn on the led 
; clear vacation mode 

; set the non vol address for vacation 
; clear the data for cleared vacation 

; set the flag 
write the memory 

; clear the flag 

; set the debouncer 



ERASERELEASE: 

\3 cp 
ret 



eraset, #0FFH 
learndb, #236 
z , LEARN RE LEAS ED 



I-N LEARN : 
ld 

TEST LEARN TIMER : 



learndb, #20 
nz,TESTLEARNTIMEE 
learndb, #0FFH 



cp learnt, #240 

jr nz, ERASETEST 



learnof i 



or ledport , tledh 

Id learnt, #0FFH 

Id learndb, #0FFH 

clr CodeFlag 

jr ERASETEST 



; turn off the erase timer 
; test for the debounced release 
if debouncer not released then jump 
; return 



; test for the debounce period 

; if not then test the learn timer for. time out 
; set the learn db 

; test for the learn 30 second timeout 
-f not then test erase 

; turn off the led 
; set the learn timer 

; set the learn debounce 
; Clear ANY code types 
; test the erase timer 



; WRITE WORD TO MEMORY 

; ADDRESS IS SET IN REG ADDRESS 

; DATA IS IN REG MTEMPH AND MTEMPL 

; RETURN ADDRESS IS UNCHANGED 

•**+**♦*****+*****★****++*+*****♦+**+***+*+++****+++++**#***** 
WRITEMEMORY: 



push 


■ RP 


; SAVE THE RP 


srp 


#LEARNEE_GBF 


; set the register pointer 


call 


ST ARTE 


; output the start bit 


Id 


serial, #001100005 


; set byte to enable write 


call 


SERIALOU7 


; output the byte 


and 


csport , #csl 


; reset the chip select 


call 


STARTB 


; output the start bit 


ld 


serial, #010000008 


; set the byte for write 
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or 


s rial* address 


» wx. iii cue auuicSS 


call 


SERIALOUT 


» outcut th hvt 


Id 


serial , mtemph 


f L11C X. X X. S L. AjyCV? i.U NIlLc 


call 


SERIALOUT 




Id 


serial, mtempl 


» aeu me seconu Dyxe lO write 


call 


SERIALOUT 


# UuLput lhc DyCc 


WO X X 




; wait for the ready status 


call 


START B 


; output the start bit 


Id 


serial, #00000000B 


; set byte to disable write 


call- 


SERIALOUT 


; output the byte 


and 


csport, #csl 


; reset the chip select 


or 


P2M SHADOW, #cl'ockh 


; Change program switch back to read 


Id 


P2M,P2M SHADOW 


§ 


pop 


RP 


; reset the RP 


ret 







READ WORD FROM MEMORY 

ADDRESS IS SET IN REG ADDRESS 

DATA IS RETURNED IN REG MTEMPH AND MTEMPL 

ADDRESS IS UNCHANGED 



READMEMORY : 





push 


RP 






srp 


# LEARNEE_GR? 


; set the register pointer 




call 


STARTB * 


; output the start bit 




Id 


serial, #100000005 


; preamble for read 


in 


or 


serial , address 


; or in the address 




call 


SERIALOUT 


; output the byte 




call 


SERIALIN 


; read the first byte 


i 


Id 


mtemph, serial 


; save the value in mtemph 


i 


call 


SERIALIN 


; read teh second byte 


i ^ 


Id 


xntempl, serial 


; save the value in mtempl 




and 


csport, #csl 


; reset the chip select 


~z I 


or 


P2M_SHADOW, #clockh 


; Change program switch back 


I rsz 


Id 


P2M, P2M SHADOW 




l.\ 

\ rtf 


pop 


RP 






ret 






1^ 








S 


WRITE CODE 


TO 2 MEMORY ADDRESS 




r 


CODE IS IN 


RADIOIH RADIOIL RADI03H 


RADI03L 



WRITECODE: 



push 


RP 




srp 


#LEARNEE_GRP ; set the register pointer 


Id 


mtemph, RadiolH 


■ transfer the data from 


Id 


mtempl , Radi oiL 




call 


WR I TEMEMOR Y 


write the temp bits 


inc 


address 


■ next address 


Id 


mtemph, Radi o3H 


■ transfer the data from 


Id 


mtempl , Radio3L 




call 


WR I TEMEMOR Y 


• write the temps 


pop 


RP 




ret 




return 



1 to the temos 



3 to the temps 



; CLEAR ALL RADIO CODES IN THE MEMORY 



CLEARCODES: 

push RP 

srp frLEARKEZ_GR? 

Id MTEMPK,#0FFH 

Id MTEMPL, *0FFK 

Id address, #00H 



set the register pointer 

set the codes to illegal codes 



; clear address 0 
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CLEARC: 



call WRI TEMEMORY 

inc address 

cp address, # (AddressCounter - 

jr ult, CLEARC 

clr mtemph 

clr mtempl 

call WRITEMEMORY 

Id address, iAddressAPointer 

call WRITEMEMORY 



"AO* 



1) 



; set the next address * 

; test for the last address of radio 

; clear data 

; Clear radio types 
; clear address F 



Id address, #MODEADDR 

call WRITEMEMORY 

Id RadioMode, #FIXED_TEST 

Id BitThresh, # FIXTHR 

Id SyncThresh, #FIXSYNC 

Id MaxBits, #FIXBITS 



;Set EE PROM memory as fixed test 
; Revert to fixed mode testing 



CodesCleared : 



13 



pop 
ret 



RP 



return 



START BIT FOR SERIAL NONVOL 



^TARTB 



SETS 


DATA DIRECTION AND AND CS 






and 


P2M_SHA*DOW, #(clockl & dol) 




; Set output mode for clock line 


Id 


P2M, P2M_SHAD0W 




; I/O lines 


and 


csport , #csl 






and 


clkport, #clockl 




; start by clearing the bits 


and 


dioport, #dol 






or 


csport, #csh 


; set 


the chip select 


or 


dioport , #doh 


; set 


the data out high 


or 


clkport, #clockh 




; set the clock 


and 


clkport, Sclockl 




; reset the clock low 


and 


dioport, #dol 


; set 


the data low 


ret 






; return 



; END OF CODE WRITE 



ENDWRITE: 
and 
nop 
or 
* or 
Id 

ENDWRITELOOP: 
Id 
and 
jr 
and 
or 
and 
Id 
ret 



csport, #csl 

csport , #csh 
P2M_SHADOW, #doh 
P2M, P2M_SHAD0W 

temph, dioport 
temph, #doh 
Z, ENDWRITELOOP 
csport, #csl 
P2M_SHADOW, #clockh 
P2M_SHAD0W, #dol 
P2M, P2M SHADOW 



; reset the chip select 

; delay 
; set the chip select 

; Set the data line to input 

; set port 2 mode forcing input mode data 

; read the port 
; mask 

; if the bit is low then loop until done 
; reset the chip select 

; Reset the clock line to read smart button 
; Set the data line back to output 
; set port 2 mode forcing output mode 



SERIAL OUT 

OUTPUT THE BYTE IN SERIAL 



SERIALOUT : 
and 
Id 
Id 



P2M_SHADOW, # (dol & clockl) 
P2M, P2M_SHAD0W 
tempi , SSH 



Set the clock and data lines to outputs 

; set port 2 mode forcing output mode data 
; set the count for eight bits 
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SERIALOUTLOOP : 



ONEOUT : 



rlc 


serial 




nc,ZEROOUT 


or 


dioport, #doh 


or 


clkport, iclockh 


and 


clkport , #clockl 


and 


dioport, #dol 


d jnz 


tempi , SERIALOUTLOOP 


ret 




r: 




and 


dioport, #dol 


or 


clkport, #clockh 


and 


clkport, #clockl 


and 


dioport, #dol 


djnz 


tempi, SERIALOUTLOOP 


ret 






; get the bit to output into the carry 
; output a zero if no carry 

; set the data out high 

; set the clock, high 

; reset the clock low 
; reset the data out low 

; loop till done 
; return 

; reset the data out low 

; set the clock high 

; reset the clock low 
; reset the data out low 

; loop till done 
; return 



n 

7Z SERIAL IN 

^ INPUTS A BYTE TO SERIAL 
\Z* ************************ 



J5ERIALIN : 
□ ° r 

;« id 

IStRIALINLOOP: 



u 



or 

rcf 

ld 

and 

jr 

scf 



iDpNTSET : 



rlc 
and 
djnz 

ret 



P2M_SHADOW, #doh 
P2M, P2M_SHADOW 
tempi, #8H 

clkport, fcclockh 

temph, dioport 
temph, #doh 
z , DONTSET 



serial 

clkport, #ciockl 
tempi f SERIALINLOOP 



; Force the data line to input 

; set port 2 mode forcing input mode data 

; set the count for eight bits 

; set the clock high 
; reset the carry flag 
; read the port 
; mask out the bits 

; set the carry flag 

; get the bit into the byte 
; reset the clock low 

; loop till done 
; return 



TIMER UPDATE FROM INTERUPT EVERY 0.256mS 



SkipPulse : 

tm SKIPRADIO, #NOINT ;If the 'no radio interrupt' 

; jr nz, NoPulse ;flag is set, just leave 

; or IMR, #RadioImr ; turn on the radio 

; NoPulse : 

iret 



TIMERUD: 

tm SKIPRADIO, #NOINT . ;If the 'no radio interrupt* 

jr nz, NoEnable ; f lag is set, just leave 

or IMR, #RadioImr ; turn on the radio 

NoEnable: 

decw TOEXTWORD ; decrement the TO extension 

TOExtDone: 

tm P2, #LINEINPIN ; Test the AC line in 

jr 2, LowAC ; If it's low, mark zero crossing 

HighAC: 
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LowAC : 



inc LineCtr 

jr LineDone 

cp LineCtr, #08 

jr ult, HighAC 

Id LinePer, LineCtr 

clr LineCtr 

Id PhaseTMR, PhaseTime 



; Count the high time 



; If the line was low before 

; then one-shot the edge of the line 

; Store the high time 

; Reset the counter 
; Reset the timer for the phase control 



LineDone : 



cp 

jr 

cp 

jr 

dec 

jr 

PhaseOf f : 
and 
jr 

ighaseOn : 

in 

'EhaseDone : 

~— 

!3 tm 

in j r 

jiSecRPMDB: 

!t cp 

^ jr 
i dec 

□ ' ^ r 
gncRPMDB: 

inc 

t ; s 

dec 



hi 



Power Level, #20 
uge, PhaseOn 
PowerLevel, #00 
z, PhaseOf f 
PhaseTMR 
mi, PhaseOn 



PhasePrt, #-PhaseHigh 
PhaseDone 



PhasePrt, #PhsseKigh 



P3, #00000010b 
nz, IncRPMDB 

RPM_FILTER, #00 
z, RPMFiltered 
RPM_FILTER 
RPMFiltered 

RPM_FILTER 

nz, RPMFiltered 

RPM FILTER 



; Test for at full wave of phase 
If not, turn off at the start of the phase 
; If we're at the minimum, 
; then never turn the phase control on 
; Update the timer for phase control 
; If we are past the zero point, turn on the line 



; Turn off the phase control 



Turn on the phase control 



; Test the RPM in pin 
; If we're high, increment the filter 

; Decrement the value of the filter if 
; we're not already at zero 



; Increment the value of the filter 
; and back turn if necessary 



.JPMFiltered: 

i~~ cp 

j r 
cp 
jr 

VectorRPMLow 
clr 
jr 



RPM_FILTER, #12 
z, VectorRPMHiqh 
RPM_FI LTER, #{255 - 12 
nz, TaskSwitcher 



RPM_FILTER 
TaskSwitcher 
VectorRPMHigh: 

Id RPM FILTER, # 0FFH 



; If we've seen 2.5 ms of high time 

; then vector high 

; If we've seen 2.5 ms of low time 

; then vector low 



TaskSwitcher 



tm T0EXT, #00000001b 

jr nz,SkipPulse 

tm . T0EXT, #00000010b 

jr nz,TASK1357 

tm T0EXT, #00000100b 

jr z, TASK04 

tm T0EXT, #00001000b 

jr nz, TASK 6 



; skip everyother pulse 

; Test for odd numbered task 

; If so do the 1ms timer update 

; Test for task 2 or 6 

; If not, then go to Tasks 0 and A 

; Test for task 6 

; If so, jump 

; Otherwise, we must be in task 2 



TASK2: 



or IMR, #RETURN_IMR 

ei 

call STA7EMACH I NE 
iret 



; turn on the interrupt 
do the motor function 



TASK0< : 
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or I MR, #RETURN_IMR ; turn on the interrupt 

ei 

push rp ; save the rp 

srp #TIMER_GROUP ; set the rp for the switches 

call switches ; test the switches 

pop rp 

iret 




TASK6: 

or IMR, #RETURN_IMR 

ei 

call TIMER4MS 
iret 



; turn on the interrupt 
; do the four ms timer 



TASK1357 : 



push 

or 

ei 



RP 

IMR, # RETURN IMR 



; turn on the interrupt 



ON EMS : 

O 

■5 

Bower Dn : 



^HagherDn : 

• SSSf 

'Dn Pot Done : 

Q 

: power Up: 

in 

I E I 

iffigherUp: 
UpPotDone : 



GoTimer : 



BlockedBeam: 
NOFAIL: 



tm 
jr 

and 
jr 

or 
inc 

tm 

jr 

and 
jr 

or 
inc 

inc 

jr 

rcf 

rrc 

rcf 

rrc 

di 

Id 

sub 

Id 

sub 

ei 

clr 

clr 

srp 

dec 

jr 

Id 

tm 

jr 

or 



inc 

cp 

jr 



pO, #DOWN_COMP 
nz , HigherDn 

p3, # (~DOWN_OUT) 
DnPotDone 

p3, #DOWN_OUT 
DNJTEMP 

pO, #UP_COMP 
nz , HigherUp 

P3, # (~UP_OUT) 
UpPotDone 

P3, #UP_OUT 
UP_TEMP 

POT_COUKT 
nz, GoTimer 

UP_TEM? 

DNJTEMP " 

UPFORCE, #63 

UPFORCE, UP_TEMP 

DN FORCE, #63 

DN FORCE , DN_TEM P 

UPJTEMP 
DNJTEMP 

#LEARNEEJ3RP 
AOBSTEST 
nz, NOFAIL 
AOBSTEST, #11 . 
AOBSF, #00100000b 
nz, BlockedBeam 
AOBSF, #I0000000b 

AOBSF, # DC 1 00001b 

RadioTimeOut 
OBS^COUNT, #00 
z, TESTI25 



; Test down force pot. 

; Average too low -- output pulse 

; take pulse output low 



; Output a high pulse 

; Increase measured duty cycle 

; Test the up force pot. 

; Average too low -- output pulse 

;.Take pulse output low 



; Output a high pulse 

; Increase measured duty cycle 

; Increment the total period for 

; duty cycle measurement 

; Divide the pot values by two to obtain 

; a 64-level force range. 



; Subtract from 63 to reverse the direction 
; Calculate pot. values every 255 
; counts 



counts 



; set the register pointer 

; decrease the aobs test timer 

; if the timer not at 0 then it didnot fail 
; if it failed reset the timer 

; If the aobs was blocked before, 

; don't turn on the light 

; Set the break edge flag 

; Set the single break flag 



; Test for protector timed out 

; If it has failed, then don't decrement 
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PPointDeb: 
DecPPDeb: 

IncPPDeb: 

PPDebDone : 
TEST125: 



13 
IB 

>*J125: 



dec 



di 
tm 
jr 



OBS COUNT 



; Decrement the timer 



j|GNE25MS: 



.EpheckSpeed : 



SpeedUp : 
RampSpeedUp : 
SlowDown : 



RunReduced : 



PowerAtMin: 



StopMotor : 



; Disable ints while debouncer being modified (16us) 
PPointPort, tPassPoint ; Test for pass point being seen 

nz, IncPPDeb ; If high, increment the debouncer 



and 


PPOINT_DEB, #0000001 lb 


9 


Debounce 3-0 


jr 


z , PPDebDone 


If already zero, don't decrement 


dec 


ppHTNT DEB 


t 


Decrement the debouncer 


jr 


PPDebDone 






inc 




i 


Increment 0-3 debouncer 


and 


PPOINT_DEB, #00000011B 


r 




jr 


nz, PPDebDone 


If rolled over, 


Id 


PPOINT_DEB, #0000001 IB 


i 


keep it at the max. 


ei 




, 


Re-enable interrupts 


inc 


tl25ms 


9 


increment the 125 mS timer 


cp 


tl25ms, #125 


9 


test for the time out 


jr 


z,ONE25MS 




if true the jump 


cp 


tl25ms, #63 


9 


test for the other timeout 


j r 


nz,N125 






call 


FAULTS 






pop 


RP 






iret 








cp 


RsMode, #00 




Test for not in RS232 mode 


jr 


z, CheckSpeed 


If not 


, don't update RS timer 


dec 


RsMode ; 


Count 


down RS232 time 


jr 


nz, CheckSpeed 




If not done yet, don't clear wall 


Id 


STATUS, #CHARGE 




Revert to charging wall control 


cp 


RampFlag, #STILL 




Test for still motor 


jr 


z, StopMotor ; 


If so, 


turn off the FET ' s 


tm 


BLINK_HI, #10000000b 




If we are flashing the warning light. 


jr 


z, StopMotor ; 


then don ' 1 ramp up the motor 


cp 


L_A_C, #076H 


Special case — use the ramp-down 


jr . 


z, NormalRampFlag 




when we're going to the learned up limit 


cp 


L_A_C, #07 OH 


If we 1 


re learning limits, 


~i t 
J s - 


UVJC / *^ 1 u> u W ^ V-a 


} 


then run at a slow speed 


9' 
cp 


RampFlag, # RAMP DOWN ; 


Test for slowing down 


jr 


z, SlowDown 


9 


If so, slow to minimum speed 


cp 


PowerLevel, MaxSpeed 


9 


Test for at max. speed 


j r 


uge, SetAtFull 


r 


If so, leave the duty cycle alone 


inc 


PowerLevel 


t 


Increase the duty cycle of the phase 


jr 


SpeedDone 


9 




cp 


PowerLevel, MinSpeed 


i 


Test for at min. speed 


jr 


ult, RampSpeedUp 


9 


If we're below the minimum, ramp up to it 


jr 


z, SpeedDone ; 


If we 1 


re at the minimum, stay there 


dec 


PowerLevel 




Increase the duty cycle of the phase 


jr 


SpeedDone 






Id 


RampFlag, #FULLSPEED 




Flag that we're not ramping up 


cp 


MinSpeed, #8 ; 


Test for high minimum speed 


jr 


ugt, PowerAtMin 






Id 


PowerLevel, #8 




Set the speed at 40% 


jr 


SpeedDone 






Id 


PowerLevel, MinSpeed 


9 


Set power at higher minimum 


jr 


SpeedDone 


9 
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protection) 
SetAtFull: 
SpeedDone : 

SixtySpeed: 



FiftySpeed : 



; ess 



WorkCheck : 
;4-22-97 



f 5 



| u 
1 3 1 



clr 

jr 

Id 

cp - 
jr 

di 

srp 

Id 

Id 

add 

adc 

ldc 

Id 

ei 



di 

srp 

Id 

Id 

add 

adc 

ldc 

Id 

ei 

srp 

CP 
JR 
INC 



Dontlnc: cp 
jr 
inc 

SKI PAUXLEARNSW : 
cp 
jr 
inc 



TEST FA : 



DO!2: 



INCLEARN : 



LEARNT OK : 



call 

clr 

inc 

di 

inc 

jr 

dec 

cp 

dec 

inc 
cp 

dec 

ei . 
inc 
cp 
i r 



Power Lever 
SpeedDone 

RampFlag , # FULLSPEED 

LinePer, #36 
uge, FiftySpeed 



Make sure that the motor is stopped (FMEA 



; Set flag for done with rarop-up 

Test for 50Hz or 60Hz 

; Load the proper table 



. ; Disable interrupts to avoid pointer collizion 
#RadioGroup ; Use the radio pointers to do a ROM fetch 

pcinterh, #KIGH ( SPEED_TABLE_60 ) 
pointerl, #LOW ( SPEED_TABLE_60 ) 
pointerl, PowerLevel 
pointerh, #O0H 

; Fetch the ROM data for phase control 

; Transfer to the proper register 
; Re-enable interrupts 
WorkCheck ; Check the worklight toggle 



Point to the force look-up table 

Offset for current phase step 



addvalueh, ^pointer 
PhaseTime,. addvalueh 



; Disable interrupts to avoid pointer collision 
#RadioGroup ; Use .the radio pointers to do a ROM fetch 

pointerh, #HIGH { SPEED_TABLE_50 ) 
pointerl, #LOW ( SPEED_TABLE_50) 
pointerl, PowerLevel 
pointerh, #00H 

; Fetch the ROM data for phase control 

; Transfer to the proper register 
Re-enable interrupts 



Point to the force look-up table 

Offset for current phase §tep 



addvalueh , (^pointer 
PhaseTime, addvalueh 



#LEARNEE GRP 



; Re-set the RP 



EnableWorkLight , #01100000B 
EQ, Dontlnc 
EnableWorkLight 



AUXLEARNSW, #OFFh 
z, SKI PAUXLEARNSW 
AUXLEARNSW 

ZZWIN, #OFFH 
z, TEST FA 
ZZWIN 

FAULT E 
T125MS 
DOG 2 

SDISA5LE 
nz, D012 
SDI SABLE 

0NEP2, #00 
z, INCLEARN 
0NEP2 

learnt 
learnt, #0H 
nz , LEARNT OK 
learnt 



eraset 
eraset , #0K 
nz, ERASETOK 



;Has the button already been held for 10s? 
;Work light function is added to every 
; 125ms if button is light button is held* 
; f or 10s will iniate change, if not held 
;down will be cleared in switch routine 

; test for the rollover position 
; if so then skip 
increase 



test for the roll position 
if so skip 

if not increase the counter 

call the fault blinker 
reset the timer 

incrwease the second watch dog 

count off the system disable timer 

if not rolled over then do the 1.2 sec 

else reset to FF 

test for 0 

if counted down then increment learn 
else down count 

increase the learn timer 

test for overflow 

if not 0 skip back turning 



increase the erase timer 

test for overflow 

if not 0 skip back turning 
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ERASETOK: 



dec 

pop 
iret 



eraset 
RP 



fault blinker 



FAULT B : 



RegFlash: 
FlashOf f: 
FlashOn : 

EastFIash: 



iJpFaults : 

m 



fEESTAOBSM: 



NOPULSE: 



AOBSSH: 



GOT FAULT: 



NOAOBSFAULT: 



FIRSTFC : 



inc • FAULTTIME 

C P L _ A _ C ' #0 7 0H 

jr ult, DoFaults 

cp L_A_C, #071H 

jr 2, FastFlash 

tm FAULTTIME , #00000100b 

jr z, FlashOn 

or ledport, #ledh 

j r NO FAULT 

and ledport, #ledl 

j r NO FAULT 

tm FAULTTIME, #00000010b 

jr z, FlashOn 

jr FlashOf f 

cp FAULTTIME, #8 Oh 

jr nz, FIRSTFAULT 

clr FAULTTIME 

clr FAULT 

cp FAULTCODE, #05h 

jr UGE, GOT FAULT 

cp CMD_DEB, #OFFH 

jr nz , TESTAOBSM 

cp FAULTCODE, #03h 

jr 2 , GOT FAULT 

Id FAULTCODE, #03h 

jr FIRSTFAULT 

tm AOBSF, #00000001b 

jr z , NOAOBS FAULT 

tm AOBSF, #00000010b 

jr z, NOPULSE 

Id FAULTCODE, #04h 

jr GOT FAULT 

CP FAULTCODE, #04h 

jr z, GOT FAULT 

Id FAULTCODE, #04h 

jr FIRSTFC 

tm P3, #00000001b 

jr z, AOBSSH 

cp FAULTCODE, #01h 

jr 2, GOT FAULT 

Id FAULTCODE, #01h 

jr FIRSTFC 

cp FAULTCODE, #02h 

jr z, GOT FAULT 

Id FAULTCODE, #02h 

jr FIRSTFC 

Id FAULT, FAULTCODE 

swap FAULT 

jr FIRSTFC 

Clr FAULTCODE 

and AOBSF, #11111100b 



; increase the fault timer 
Test for in learn limits mode 
If not, handle faults normally 
Test for failed learn 
If so, blink the LED fast 

; Toggle the LED every 250ms 



; Turn off the LED for blink 
; Don't test for faults 

; Turn on the LED for blink 



Toggle the LED every 125ms 



; test for the end 
; if not timed out 
,* reset the clock 
; clear the last 
; test for call dealer code 
set the fault 

; test the debouncer 
if not set test aobs 

test for command shorted 
set the error 
set the code 



test for the skiped aobs pulse 

if no skips then no faults 

test for any pulses 

if no pulses find if hi or low 

else we are intermittent 

set the fault 

if same got fault 

test the last fault 

if same got fault 

set the fault 

test the input pin 

jump if aobs is stuck hi 

test for stuck low in the past 

set the fault 

set the fault code 

test for stuck high in past 
set the fault 
set the code 



set the code 



clear the fault code 
clear flags 
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FIRST FAULT : 



m 
m 

zglTONE: 

□ 

i^TESTSDI : 



tm 

incw 
ton 

or 



RegularFault : 



cp 
jr 
Id 
cp 
jr 
cp 

tm 
jr 
and 
ret 



ret 



FAULTTIME, SOOOOOlllb 
nz, RegularFault 



If one second has passed, 
increment the 60min 



HOUR_TIMER ; Increment the 1 hour timer 

HOUR_TIMER_LO, #00011111b ; If 32 seconds have passed 
nz, RegularFault ; poll the radio mode 



AOBSF, #01000000b 



FAULT, #00 

z , NOFAULT 

FAULT FLAG, # OFFH 

CodeFlag, #REGLEARN 

z,TESTSDI 

FAULT, FAULTTIME 

ULE, TESTSDI 

FAULTTIME , #00001000b 
nz, BITONE 
ledport, #ledl 



ledport, #ledh 



Set the 'poll radio* flag 



test for no fault 

set the fault flag 

test for not in learn mode 

if in learn then skip setting 



test the 1 sec bit 

; turn on the led 

; turn off the led 



! NOFAULT: 



clr 
ret 



FAULT FLAG 



clear the flag 



Four ms timer tick routines and aux light function 



13 

i != TIMER4MS : 



TESTPERIOD: 



FAREV : 



RPMTDONE: 



cp 
jr 

dec 

di 

clr 

clr 

ei 

jr 

cp 
jr 
Id 
cp 

jr 

di 

clr 

clr 

ei 

clr 

jr 

Id 
Id 
and 
Id 

call 
dec 



RPMONES, #00H 
z , TESTPERIOD 

RPMONES 

RPM_COUNT 
BRPM_COUNT 

RPMTDONE 

RPMCLEAR, #00H 
nz, RPMTDONE 
RPMCLEAR, #122 
RPM_COUNT, #50 
ugt, FAREV 

RPM_COUNT 
BRPM_COUNT 

FAREVFLAG 
RPMTDONE 

FAULTCODE, #06h 
FAREVFLAG, #088K 
pO , # LOW { -WORKLIGH 
REASON, #8 OH 
SET_AREV_STATE 

RPMCLEAR . 



T) 



test for the end of the one sec timer 
if one sec over then test the pulses 
; over the period 
; else decrease the timer 

; start with a count of 0 
; start with a count of 0 



; test the clear test timer for 0 

if not timed out then skip 

; set the clear test time for next cycle 

; .test the count for too. many pulses 

; if too man pulses then reverse 

; clear the counter 

; clear the counter 



clear the flag 
continue 



temp test 



; set the fault flag 
; set the forced up flag 
; turn off light 
rpm forcing up motion 

; set the autorev state 



decrement the timer 
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SKIPLIGHTE: 



DONOTCB: 



RTOOK: 



SKIPRRTO: 



p 
In 

PRSWCLOSED: 



I3EARNDBOK: 



cp LIGHT1S,#00 V 

jr 2, SKIPLIGHTE 

dec LIGHT1S 

inc R_DEAD_TIME 

cp RTO, #RDROPTIME 

jr ult, DONOTCB 

cp CodeFlag, # LRNOCS 

jr uge, DONOTCB 

clr CodeFlag 

inc RTO 

jr n 2, RTOOK 

dec RTO 

cp RRTO, #OFFH 

jr 2, SKIPRRTO 

inc RRTO 

cp SKIPRADIO, #00 

jr nz, LEARN DBOK 

cp RsMode, #00 

jr nz, LEARN DBOK 

tm psport , #psmask 

jr z, PRSWCLOSED 

cp LEARN DB, #00 

jr 2, LEARN DBOK 

dec LEARN DB 

jr LEARN DBOK 



cp LEARNDB, #0FFH 

jr z , LEARN DBOK 

inc LEARNDB 



; test for the end 

; down count the light time 



; test for the radio time out 
; if not timed out dorrot clear b 
; If we are in a special learn mode, 
then don't clear the code flag 

; else clear the b code flag 

; increment the radio time out 

; if the radio timeout ok then skip 

; back turn 

; test for roll 
; if so then skip 



; Test for EE PROM communication 
If so, skip reading program switch 

; Test for in RS232 mode, 
if so, don't update the debouncer 

; Test for program switch 
if the switch is closed count up 
test for the non decrement point 
if at end skip dec 



; test for debouncer at max. 
if not at max increment 

; increase the learn debounce timer 



?UaUX OBSTRUCTION OUTPUT AND LIGHT FUNCTION 



KPXLIGHT: 
test_light_on: 

cp 

jr 

cp 

jr 

cp 

jr 

xor 

clr 



NOIS: 



LIGHT_FLAG, #LIGH1 
z , dec_light 
LIGHT1S, #00 
z,N01S 
LIGHT1S, #1 
nz,N01S 
pO, #WORKLIGHT 
LIGHT IS 



cp FLASH_FLAG, # FLASH 

j r nz, dec_light 

clr VACFLASK 

dec FLASH_ DELAY 

jr nz,dec_light 

cp STATUS, #RSSTATUS 

jr 2, BlinkDone 

; Toggle the wall control LED 



cp 
jr 

TurnltOf f : 

a. 

jr 

TurnltOn: 
Id 
la 

BlinkDone : 
Id 



STATUS, #WALLOFF 
2, TurnltOn 

STATUS, # W ALLOT F 
BlinkDone 

STATUS, # CHARGE 
SWITCH_DELAY, #CMD_DEL_EX 

FLASH DELAY , # FLASH TIME 



test for no flash 
if not skip 
test for timeout 
if not skip 
toggle light 
oneshoted 



Keep the vacation flash timer off 
250 ms period 



; Test for in RS232 mode 
; If so, don't blink the LED 

; See if the LED is off or on 



Turn the light off 



; Turn the light on 
Reset the delay time for charge 



Page 76 of 97 




dec 

jr 

clr 

dec_light : 
cp 
jr 
tm 
jr 

decw 

jr 

and 

cp 

jr 

clr 

or 

exit_light : 
ret 



FLASH_COUNTER 
nz, dec_light 
FLASH_FLAG 

LIGHT_TIMER_HI, # OFFH 
z, exit_light 
TOEXT, #00010000b 
nz, exit_light 
LIGHT_TIMER 
nz, exit_light 
pO, # <-LIGHT_ON) 
L_A_C, #00 
z, exit_light 
L_A_C 

ledport, fledh 



; test for the timer ignore 
; if set then ignore 
; Decrement the light every 8 ms 
(Use TOExt to prescale) 

if timer 0 turn off the light 
turn off the light 
Test for in a learn mode 
If not, leave the LED alone 
; Leave the learn mode 
turn off the LED for program mode 

; return 



; MOTOR STATE MACHINE 



S^ATEMACHINE: 

% i* 

M inc 
M0TDELDONE : 



MOT DEL, #0FFH 
z, MOTDELDONE 
MOTDEL 



Test for max. motor delay 
if do, don't increment 
update the motor delay 





xor 


p2, # FALSE I R 


i 


toggle aux output 


t 


cp 


DOG2 , # 8 




test 


the 2nd watchdog for problem 


jP 


ugt , START 


! 


if problem reset 




cp 


STATE, #6 


? 


test 


for legal number 


□ 


jP 


ugt , start 


i 


if not the reset 




jP 


z , stop 




stop 


motor 6 


■ r~ 


cp 


STATE, #3 


* 


test 


for legal number 


: zj: 
: : 


jP 


z , start 






; if not the reset 


m 


cp 


STATE, #0 


t 


test 


for autorev 


(3 


jP 


z,auto rev 




auto 


reversing 0 




cp 
jP 


STATE, #1 

z,up direction 


t 


test 


for up 

; door is going up 1 




cp 


STATE, #2 


f 


test 


for autorev 




jP 


z,up position 




door 


is up 2 




cp 


STATE, #4 


i 


test 


for autorev 




jp 


z , dn_di recti ion 






; door is going down 4 




jp 


dn position 


t 


door 


is down 5 


* 
r 


AUTO_ 


REV ROUTINE 








f 

auto_ 


rev: . 












cp 


FAREV FLAG , #08SH 


t 


test 


for the forced up flag 




jr 


nz, LEAVEREV 










and 


pO, #LOW (-WORKLIGHT) 


; turn off light 




clr 


FAREV FLAG 




one 


shot temp test 


LEAVEREV : 












cp 


MOTDEL, #10 


9 


Test 


for 4 0 ms passed 




jr 


ult, ARE VON 


! 


If not, keep the relay on 



AREVOFF : 



AREVON : 



and 

WDT 

call 

Id 

di 

dec 

dec 

ei 



p0,#LOW(~MOTOR_UP & -MOTOR DN) 



HOLDFREV 

LIGHT FLAG, FLIGHT 



disable motor 
kick the dog 

hold off the force reverse 
force the light on no blink 



AUTO^DELAY 
BAUTO DELAY 



; wait for .5 second 
; wait for .5 second 
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nz, arswitch 


or 


p2, # FALSE I R 


;LOOK 


FOR LIMIT HERE (No) 


Id 


• REASON, #4 OH 


cp 


LAC, #075H 


DP 


riz, SET UP NOBLINK 


Id 


LAC, #076H 


3P 


SET_UP_NOBLINK 


arswitch: 




Id 


REASON, #00H 


di 




cp 


SW_DATA, #CMD SW 


clr 


SW_DATA 


ei 




3P 


z , SET STOP STATE 


Id 


REASON, #1 OH 


cp 


RADIO CMD, # OAAK 


3P 


Z , SET_STOP_STATE 


exit auto rev: 


f = ret 




rfS-DFREV : 




? C Id 


RPMONES , #2 4 4 



Id 

di 

clr 

clr 

ei 

ret 



RPMCLEAR, #122 

RPM_COUNT 
BRPK COUNT 



; test switches 



set aux output 



for FEMA 



; set the reason for the change 
Check for learning limits, 
If not, proceed normally 

; set the state 

; set the reason to command 

; test for a command 



if so then stop 

set the reason as radio command 
test for a radio command 
if so the stop 

return 



set the hold off 

; clear rpro reverse .5 sec 

; start with a count of 0 
; start with a count of 0 



DOOR GOING UP 



lip^di recti on : 
S=£ WDT 
cp 

jr 
ret 
UoReady : 

call 

Id 

and 

or 
cp 
jr 

CheckUpBlink: 
and 
Id 
or 

decw 
• tm 
' jP 



OneFass, STATE 
z, UpReacy 



HOLDFREV 

LIGHT_FLAG , # LIGHT 
pO, #LOW ( -MOTOR_DN } 

pO, #LIGHT_ON 
MOTDEL, #10 
ule,UPOFF 

P2M_SHADOW, #~BLINK_PIN 
P2M, P2M_SHADOW 

F2, #eiink_f:k 

BLINK 

BLINK_HI, # 10000000b 
z, NotUpSlow 



UPON: 
UPOFF 



or 
cp 



Id 

SKI r'Jrr.Pi-; : 



; kick the dog 

; Test for the memory read one-shct 

; If so, continue 

; Else wait 

; hold off the force reverse 

; force the light on no blink 
disable down relay 

; turn on the light 

; test for 40 milliseconds 

; if not timed 

; Turn on the blink output 

' ; Turn on the blinker 
; Decrement blink time 
; Test for pre-travel blinking done 
If not, delay normal motor travel 



pO, # (MOTOR_UP I LIGHT_ON) ; turn on th motor and light 



FORCE_IGNORE , #1 
nz, SKIPUPRPK 
R?:*:_ACC*JN7 , ¥ Z 2r 
ugz , SKI?U??.?M 
FAULTCODE, #05r: 



; test fro the end of the force ignore 
if not donot test rpmcount 

; test for less the 2 pulses 
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FORCE_ IGNORE , #00 
nz, test_up_sw_pre 



cp 
jr 

TEST_UP_FORCE: 
di 
dec 
dec 
ei 
jr 
cp 
jr 

TestUpForcePot 
di 
cp 
jr 
jr 
cp 
jr 

f a i led_up__rpm 

Id REASON, #2 OH 

cp L_A_C, #07 6H 

j p nz, SET_STOP_STATE 

Id L_A_C, #077H 

|=| jp SET_STOP_STATE 

t^st_up_sw_pre : 



RPM_TIME_OUT 
BRPM_TIME_OUT 

z, f ailed_up_rpm 
RampFlag , iRAMPUP 
z, test_up__sw 



RPM_PERIOD_HI , UP_FORCE_HI 
ugt, f ailed_up_rpm 
ult, test_up_sw 
RPM_PERIOD_LO, UP_FORCE_LO 
ult, test_up_sw 



; test timer for done 

; if timer not up do not test force 



decrease the timeout 

; decrease the timeout 



; Check for ramping up the force 
If not, always do full force check 

; turn off the interrupt 
Test the RPM against the force setting 



; set the reason as force 
If we're learning limits, 
then set the flag to store 



m 

*3 st - 

13 



Hi 



di 
dec 
dec 
up_sw : 
di 
Id 
Id 
sub 
sbc 
cp 
jr 
cp 
jr 
ei 



FORCE_ IGNORE 
B FORCE IGNORE 



LIM_TEST_HI, 
LIM_TEST_LO, 
LIM_TEST_LO, 
LIM_TEST_HI , 
POSITION_HI, 
ugt, UpPosKnown 
POSITION_HI, #050H 
ult, UpPosKnown 



POSITION_HI 
POSITION_LO 
UP_LIMIT_LO 
UP_LIMIT_HI 
#OBOH 



Tj£>Pos Unknown : 
J— : sub 

add 
adc 
UpPosKnown : 
ei 
cp 
jr 
cp 
jr 
cp 
jr 

TestForPastUp 
tm 

close) 

jr 

AtUpLimit : 
Id 
cp 
jr 
cp 
jP 
Id 

jP 

ReLearnLim: 
Id 
jP 

get_sw: 

cp 
jr 



LIM_TEST_LO, 
LIM_TEST_HI, 
LIM_TEST_LO, 
LIM TEST HI, 



#062H 
#07 FH 

DN_LIMIT_LO 
DN LIMIT HI 



L_A_C, #07 OH 
z, test_up_rime 
LIM_TEST_HI, #00 
nz, TestForPastUp 
LIM_TEST_LO, #00 
z, AtUpLimit 

LIM_TEST_HI , # 10000000b 

z, get_sw 

REASON, #5 OH 

L_A_C, #072H 

z, ReLearnLim 

L_A_C, #07 6H 

nz , SET_UP_POS_STATE 

L_A_C, #07 7H 

SET_UP_POS_STATE 

L_A_C, #07 3H 
SET_UF_PCS_S7ATE 

L_A_C, #070H 
z, NotUpSlow 



Calculate the distance from the up limit 



Test for lost door 

; If not lost, limit test is done 



Calculate the total travel distance allowed 
from the floor when lost 



If we're positioning the door, forget the limit 
; and the wall control and radio 
; Test for exactly at the limit 
; If not, see if we've passed the limit 



; Test for a negative result {past the limit, but 

; If so, set the limit 

; set the reason as limit 
If we're re-learning limits, 
jump 

If we're learning- limits, 

; then set the flag to store 



Test for positioning the up limit 
; If so, don't slow down 
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TestUpSlow: 






cp 


LIM TEST HI, #HIGH(UPSLOWSTART) ; Test for start of slowdown 


jr 


nz, NotUpSlow 


; (Cheating — the high byte of the number 


cp 


LIM TEST LO, #LOW(UPSLOWSTART) 


jr 


ugt, NotUpSlow 


r 


UpSlow: 






Id 


RampFlag, # RAMP DOWN 


; Set the slowdown flag 


NotUpSlow: 






Id 


REASON, #10H 


; set the radio command reason 


cp 


RADIO_CMD, #0AAH 


; test for a radio command 


jP 


z , SET_STOP_STATE 


; if so stop 


Id 


REASON, UUUn 


; set the reason as a command 


di 






cp 


SW DATA, #CMD SW 


; test for a command condition 


clr 


SW_DATA 




ei 






jr 


ne,test up time 




jP 


SET_STOP_STATE 




test up time: 






Id 


REASON, #7 OH 


; set the reason as a time out 


decw 


M OT OR_T I ME R 


; decrement motor timer 


™ 3P 


z, SET_STOP_STATE 




*ekit_up_dir : 






iO ret 




; return to caller 


3* DOOR UP 

E E=3 








Ipp position: 






th WDT 




; kick the dog 


^ cp 


FAREV FLAG , # 0 8 8 H 


; test for the forced up flag 


5 jr 


nz, LEAVE LIGHT 






pO, #LOW (-WORKLIGHT) 


; turn off light 


i3 jr 


UPNOFLASK 


; skip clearing the flash flag 


.^AVELIGHT: 






III ld 


LIGHT_FLAG, #00H 


; allow blink 


:OTNOFLASH: 






ly cp 


MOT DEL, #10 


; Test for 40 ms passed 


13 jr 


ult, UPLIMON 


; If not, keep the relay on 


jUPLIMOFF: 






and 


pO , # LOW ( -*MOTOR_U P & 


~MOTOR_DN) ; disable motor 


UPLIMON: 






. C P 


L_A_C, #073H 


; If we've begun the learn limits cycle, 


jr 


z, LACUPPOS 


; then delay before traveling 


cp 


SW_DATA, #LIGHT_SW 


; light sw debounced? 


jr 


z,work up 




Id 


REASON, #10H 


; set the reason as a radio command 


cp 


RADIO CMD, #0AAH 


; test for a radio cmd 


jr 


Z, SETDNDIRSTATE 


; if so start down 


ld 
di 
cp 


REASON, #00H 


; set the reason as a command 


SW DATA, #CMD SW 


; command sw debounced? 


clr 


SW_DATA 




ei 






jr 


Z, SETDNDIRSTATE 


; if command 


ret 






SETDNDIRSTATE: 




Id 


ONEP2, #10 


; set the 1.2 sec timer 


jP 


SET_DN_DIR_STATE 





LACUPPOS: 
cp 
jr 
ld 

Id 

UpTimeOk: 

decw 

j r 

StartLACDown : 



MOTOR_TIMER_HI , #HIGH {LACTIME} , 
ule, UpTimeOk 

MOTOR_TIMER_HI, #HIGH { LACTIME ) 

MOTOR_TIMER_LO, #LOW (LACTIME) 

MOTOR_T IMER 
nz , up_pos_ret: 



Make sure we're set to the proper time 



Count down more time 
If not timed out, leave 
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Id 

clr 

clr 

clr 

clr 

Id 

DP 

work_up: 

xor 

Id 

and 

up_pos_ret : 
ret 



L_A_C, #074H 

UP_LIMIT_HI 

UP_LIMIT_LO 

POSITION_HI 

POSITION_LO 

PassCounter, #030H 

SET DN DIR STATE 



pO, #WORKLIGHT 

LIGHTJTIMER_HI, #0FFH 

SW DATA, #LOW (-LIGHT SW) 



Set state as traveling down in LAC 
; Clear the up limit 
; and the position for 
; determining the new up 
; limit of travel 

Set pass points at max. 

; Start door traveling down 



; toggle work light 
; set the timer ignore 
Clear the worklight bit 

; return 



DOOR GOING DOWN 



dn_direction: 
WDT 
cp 
jr 

l=J ret 
DfVnReady : 

m cal1 
clr 

!=l and 
i==i or 

|S cp 

■ Dr 
CffeckDnBl ink : 



OnePass, STATE 
z , DownReady 



HOLDFREV 
FLA SH_ FLAG 
LIGHT_FLAG, #LIGHT 
pO, # LOW (-MOTOR UP) 



pO, #LIGHT_ON 
MOT DEL, #10 
ule, DNOFF 



; kick the dog 

; Test for the memory read one-shot 
If so, continue 
; else wait 

; hold off the force reverse 
; turn off the flash 
; force the light on no blink 
turn off motor up 

; turn on the light 

; test for 40 milliseconds 

; if not timed 





and 


E2M_SHADOW, # -BLINK PIN " 






Turn on the blink output 


. J— 

il I 


ld 


P2M, P2M SHADOW 








or 


P2, #BLINK_PIN 






Turn on the blinker 


IU 


decw 


BLINK 






Decrement blink time 


13 


tm 


BLINK_HI , ttlOOOOOOOb 






Test for pre-travel blink done 


1=*: 


jr 


z, NotDnSlow 


; If 


not 


, don't start the motor 


DNON: 














or 


pO, # (MOTOR_DN ! LIGHT_ON ) 


; turn 


on the motor and light 


DNOFF: 


cp 


FORCE_ I GN ORE , #01 




i 


test fro the end of. the force 




jr 


nz, SKIPDNRPM 


; if 


not 


donot test rpmcount 




cp 


RPM_ACOUNT, #02H 






test for less the 2 pulses 




3r 


ugt, SKIPDNRPM 










ld 


FAULT CODE , #05h 









SKIPDNRPM: 
CP 

TEST_DOWN_ 
di 
dec 
dec 
ei 
jr 
cp 

TestDownFo 
di 
cp 
jr 

jr 
cp 



FORCE_IGNORE, #00 
nz, test_dn_sw_pre 

FORCE : 

RPM_TIME_OUT 
BRPM_TIME_OUT 

z, f ailed_dn_rpm 
RampFlag, #RAMPUP 
2, test_dn_sw 
rcePot : 

RPM_FERIOD_KI, DK_FOR-' _ 
ugt, f ailed_dh_rpn-: 
ult, test_dn_sw 
RPM_PERIOD_LO, DN__FORCE_LO 
ult, test dn sw 



il ; 



; test timer for done 

; if timer not up do not test force 



decrease the timeout 

; decrease the timeout 



; Check for ramping up the force 
If not, always do full force check 

; turn off the interrupt 
Test the RPM against the force setting 
if too slow then force' reverse 

; if faster then we're fine 



Page 81 of 97 




fail ed_dn_rpm : 



cp 


L_A_C, #074H 


* 


Test for learning limits 




jp 


z, DnLearnRev 




If not, set the state normally 




tm 


POSITION_HI, # 11000000b 




; Test for below last pass 


point 


jr 


nz , DnRPMRev 




if not, we're nowhere near the 


limit 


tm 


LIM_TEST_HI, # 10000000b 




; Test for beyond the down 


limit 


jr 


nz, DoDownLimit 




; If so, we've driven into 


the down 


DnRPMRev : 










Id 


REASON, #20H 




; set the reason as force 




cp 


POSITION HI, #0B0K 


* 


Test for lost, 






ugt, SET AREV STATE 




if not, autoreverse normally 




cp 


POSITION HI, #050H 








3P 


Ult, SET_AREV_STATE 








di 






; Disable interrupts 




Id 


POSITION HI, #07FH 


9 


Reset lost position for max. travel up 


Id 


POSITION_LO, #080H 








ei 






; Re-enable interrupts 




jP 


SET_AREV_STATE 




r 




DnLearnRev: 










Id 


LAC, #075H 


t 


Set proper LAC 




o jp 


S E T_ARE V_ S TAT E ■ 









itest 



jfest_dn_sw_pre 
: £ di 
dec 
dec 
_dn_sw 
□ di' 
^ cp 
jr 

_ cp 

!EestDnLimG 
Id 
Id 
sub 
sbc 
ei 



FORCE_IGNORE 
B FORCE IGNORE 



POSITION_HI, #050H 
ult, TestDnLimGood 
POSITION_HI , # 0B0H 
ult, NotDnSlow 
ood : 

LIM_TEST_HI, 
LIM_TEST_LO, 
LIM_TEST_LO, 
LIM TEST HI, 



DN_L I M I T_H I 
DN_L IM I T_LO 
POSITION_LO 
POSITION HI 



Test for lost in mid travel 

If so, don't test for limit until 
; a proper pass point is seen 

Measure the distance to the down limit 



cp 
jr 
tm 
jr 
cp 
jr 

DoDownLimit : 
Id 
cp 

jr 
Id 

jr 

TESTRADIO: 
cp 
jr 
cp 

jr 
Id* 

TESTFORCEIG: 
cp 
jr 
Id 
jP 

NOAREVDM: 
and 
jP 

call_sw_dn: 
cp 



L_A_C, #07 OH 

uge, test_dn_time 

L I M_TE ST_H I , # 1 0 0 0 0 0 0 0b 

z, call_sw_dn 

LIM_TEST_LO, #(255 - 36) 

ugt, NotDnSlow 

REASON, #50H 
CMD_DEB, #0FFH 
nz, TESTRADIO 
REASON, #9 OH 
TESTFORCEIG 

LAST_CMD, #00 
nz, TESTFORCEIG 
CodeFlag, #3RECEIVED 
nz, TESTFORCEIG 
REASON, #0AOH 

FORCE_IGNORE, #00H 
z , NOAREVDN 
REASON , # 60h 
SET_AREV_STATE 

pO , # LOW ( -MOTOR_DN ) 
SET DN POS STATE 



LIM TEST HI, #HIGH ( DNSLOWSTART) 



; If we're in the learn cycle, forget the limit 
; and ignore the radio and wall control 
; Test for a negative result (past the down limit) 

; If so, set the limit 

; Test for 36 pulses (3") beyond the limit 

; if not, then keep driving into the floor 

; set the reason as a limit 

; test for the switch still held 

' ; closed with the control held 



test for the last command being radio 
if not test force 
test for the b code flag 

; set the reason as b code to limit 

; test the force ignore for done 

; a rev if limit before force enabled 

; early limit 

; set autoreverse 



set the state 

Test for start of slowdown 
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3r 
cp 
jr 

DnSlow: 

Id 

NotDnSlow: 
Id 
cp 

DP 

Id 

di 

cp 

clr 

ei 

DP 

t e s t_dn_t ime 
Id 

decw 
jP 



nz, NotDnSlow 
LIM_TEST_LO, SLOW ( DN S LOW S TART ) 
ugt, NotDnSlow 



(Cheating — th high byte is zero) 



RampFlag, # RAMP DOWN 

REASON, #1 OH 
RADIO_CMD, #OAAH 
z, SET_AREV_STATE 
REASON, #00H 

SW_DATA, #CMD_SW 
SW_DATA 

z , SET_AREV_STATE 

REASON, #7 OH 
MOTOR_T IMER 
z , SET AREV STATE 



test obs count: 



cp 

jr 

cp 
jr 
cp 
jr 
cp 
jr 

jr 



p 



QBS AREV : 
Id 

Id 
ld 

III 3P 
OBSTESTB: 

!s cp 

W jr 
e^Lt_dn_dir : 
ret 



OBS_COUNT, #00 

nz, exit_dn_dir 

FORCE_ IGNORE , # (ONE_SEC / 2) 

ugt, exit_dn_dir 

LAST_CMD, #00 

Z, OBSTESTB 

CMD_DEB, # OFFH 

nz,OBSAREV 

exit_dn_dir 

FLASH_FLAG, #0FFH 
FLASH_COUNTER, #20 
FLASH_DELAY, #FLASH_TIME 
REASON, #3 OH 
SET_AREV_STATE 

CodeFlag, #BRECEIVED 
nz,OBSAREV 



Set the slowdown flag 

; set the reason as radio command 
; test for a radio command 
; if so arev 

; set the reason as command 
; test for command 



; set the reason as timeout 
decrement motor timer 



; Test the obs count 
; if not done, don't reverse 
; Test for 0.5 second passed 
; if within first 0.5 sec, ignore it 
test for the last command from radio. 

; if last command was a radio test b 
; test for the command switch holding 
; if the command switch is not holding 
; do the autorev 
; otherwise skip 

; set flag 
set for 10 flashes 

set for .5 Hz period 
set the reason as autoreverse 



; test for the b code flag 
if not b code then arev 

return 



DOOR DOWN 



dn_position : 
WDT 
cp 
jr 
and 
jr 

DN LEAVE L : 
Id 

DNNOFLASH : 
cp 
jr 

DNLIMOFF: 
and 

DNLIMON : 
cp 
jr 
ld 
cp 
jr 
ld 
di 
cp 



FARE V FLAG , #088H 

nz, DNLEAVEL 

pO, #LOW (-WORKLIGHT) 

DNNOFLASH 



LIGHT_FLAG, #00H 

MOT DEL, #10 
ult, DNLIMON 



kick the dog 

test for the forced up flag 



turn off light 

; skip clearing the flash flag 



; allow blink 

; Test for 40 ms passed 
; If not, keep the relay on 



p0,#LOW(-MOTOR_UP & -MOTOR_DN) ; disable motor 

; debounced? light 



SW_DAT A , #LIGHT_SW 
z , wor k_dn 
REASON, #10H 
RAD 1 0_CM D , # 0 AAH 
Z, SETUPDIRSTATE 
REASON, #00H 

SW DATA, 8CMD SW 



; set the reason as a radio command 

; test for a radio command 

; if so go up 

; set the reason as a command 



command sw pressed? 
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clr 
ei 
jr 
ret 



SW_DATA 

Z , SETUPDIRSTATE 



SETUPDIRSTATE: 
Id 
jP 



ONEP2, #10 
SET UP DIR STATE 



; if so go up 



set the 1.2 sec timer 



work_dn : 

xor 

Id 

and 

dn_pos_ret : 
ret 



pO, #WORKLIGHT ; toggle work light 

LIGHT_TIMER_HI, #0FFH ; set the timer ignore 

SW_DATA, # LOW (-LIGKT_SW) ; Clear the worklight bit 

; return 



STOP 



stop: 

WDT 

f=J jr 
= 0 and 

IB i r 

LE&VESTOP: 

•£ Id 
SjbPNOFLASH : 

llj cp 

Q jr 
STOPMIDOFF: 

1 and 
STOPMIDON: 



if- 
fy 



I)r 
Id 
cp 

jP 
Id 
di 
cp 
cli 



ei 

jP 
ret 

work_stop: 
xor 
Id 
and 

stop_ret : 
ret 



FARE V FLAG , #0S6H 

nz , LEAVESTOP 

pO, #LOW (-WORKLIGHT) 

STOPNOFLASH 

LIGHT_FLAG, #00H 

MOT DEL, #10 
ult, STOPMIDON 



; kick the dog 

; test for the forced up flag 
; turn off light 

9 

; allow blink 

; Test' for 4 0 ms passed 

; If not, keep the relay on 



pO, #LOW (~MOTOR_UP & -MOTOR_DN) ; disable motor 

; debounced? light 



SW_DATA, #LIGHT_SK 
z , work_stop 
REASON, #10H 
RADIO_CMD, #0AAH 
z, SET_DN_DIR_STATE 
REASON, #00H 

SW_DATA, #CMD_SW 
SW_DATA 

z, SET_DN_DI?,_S7A7F 



pO, #WORKLIGHT 

LIGHT_TIMER_HI , #0FFH 

SW DATA, #LOw (~LIGHT_SW) 



set the reason as radio command 
test for a radio command 
if so go down 

; set the reason as a command 

; command sw pressed? 
if so go down 



; toggle work light 
; set the timer ignore 
Clear the worklight bit 

; return 



SET THE AUTOREV STATE 
7 — — — — — — — — — — 

SET AREV STATE: 



di 






cp 


L_A_C, #070H 


; Test 


jr 


uge, LearningRev 




cp 


POSITION_HI, #020H 


; Look 


jr 


ult, DoTheArev 




cp 


POSITION_HI , #0D0H 


; Look 


jr 


ugt, DoTheArev 





; Otherwise, we're lost 
cp REASON, #02 OH 

jr uge, DoTheArev 



clr 



RADIO CMD 



; If not, do a normal autoreverse 

for lost postion 
; If not, proceed as normal 
for lost postion 
; If not, proceed as normal 

ignore commands 

; Don't respond to command or radio 

; Throw out the radio command 
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ei 
ret 



; Otherwise, just ignore it 



DoTheArev : 

Id 
Id 
clr 



STATE, #AUTO_REV 
RampFlag, # STILL 
PowerLevel 
SET ANY 



if we got here, then reverse motor 
Set the FET's to off 

Done 



LearningRev: 



Id 


STATE, #AUTO_REV 




; if we got here, then reverse 


motor 


Id 


RampFlag, #STILL 




; Set the FET * s to off 




clr 


PowerLevel 










cp 


LAC, #075H 




; Check for proper reversal 




jr 


nz, ErrorLearnArev 


; If 


not, stop the learn cycle 




cp 


PassCounter, 


#030H 


; If 


we haven't seen a pass point, 




jr 


z, ErrorLearnArev 




; then flag an error 




GoodLearnArev 












cp 


POSITION HI, 


#00 




; Test for down limit at least 




jr 


nz, DnLimGood 


; 20 


pulses away from pass point 




C P 


POSITION LO, 


#20 










ult , MovePassPoint 


; If 


not, use the upper pass point 




^piLimGood: 












in and 


PassCounter, 


#10000000b 




; Set at lowest pass point 




(JotDnLim: 
di 






















13 id 


DN LIMIT HI, 


POSITION HI 


; Set the new down limit 




In id 


DN_L I M I T_LO , 


POSITION LO 


w 






jp=s add 


DN LIMIT LO, 


#01 




; Add in a pulse to guarantee 


reversal 


DN LIMIT HI, 


#00 










SET ANY 










^ErrorLearnArev : 










!□ ld 


LAC, #071H 




; Set the error in learning state 






SET_ANY 











fll 

! HbvePassPoxnt : 

W 



cp 


PassCounter, 


J02FH 


jr 


z, ErrorLearnArev 


di 






add 


POSITION_LO, 


#LOW (PPOINTPULSES) 


adc 


POSITION_HI, 


#HIGH (PPOINTPULSES) 


add 


UP LIMIT LO, 


#LOW (PPOINTPULSES) 


adc 


UP_LIMIT_HI, 


#HIGK ( PPOINTPULSES ) 


ei 
or 


PassCounter, 


#01111111b 


jr 


GotDnLim 





If we have only one pass point, 

; don't allow it to be this close to the floor 

Use the next pass point up 



Set pass counter at -1 



SET THE STOPPED STATE 



SET_STOF_STATE 
di 
cp 
jr 
cp 
jr 
cp 



L_A_C, #07 OH 
uge, DoTheStop 
POSITION_HI, #020H 
ult, DoTheStop 
POSITION_HI, #0D0H 
ugt, DoTheStop 



If we 1 re in the learn mode, 

; Then don't ignore anything 

Look for lost postion 

; If not, proceed as normal 

Look for lost postion 

; If not, proceed as normal 



; Otherwise, we're lest 

cp REASON, #020H 

jr • uge, DoTheStop 

clr RADIO_CMD 

ei 

ret 



-- ignore commands 

; Don't respond to command or radio 



Throw out the radio command 
Otherwise, just ignore it 



DoTheStop: 
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Id STATE, # STOP 

Id RampFlag, # STILL 

clr PowerLevel 

j r SET_ANY 



Stop the motor at the FET's 



SET THE DOWN DIRECTION STATE 



SET DN DIR STATE: 



Id - BLINK_HI, # OFFH 

call LookFor Flasher 

tm P2, #BLINK_PIN 

jr nz, SET_DN_NOBLINK 

Id BLINK^LO, #0FFH 

Id BLINK HI, #01H 



/Initially disable pre-travel blink 
;Test to see if flasher present 
;If the flasher is not present, 
; don't flash it 

;Turn on the blink timer 



SET DN NOBLINK: 



in 



di 

Id RampFlag, #RAMPUP 

Id PowerLevel, #4 

Id STATE, #DN_DIRECTION 

clr FARE V FLAG 

cp L_A_C, #07 OH 

jr uge, SET_ANY 

cp POSITION_HI, #020H 

jp Ult, SET_ANY 

cp POSITION_HI, #0D0H 

jp ugt, SET ANY 



LgstDn : 



cp FirstRun, #00 

jr nz, SET_ANY 

tm PassCounter, #01111111b 

j r z , SET_UP_DIR_STATE 

tcm PassCounter, #01111111b 

jr z, SET_UP_DIR_STATE 

jr SET ANY 



; Set the flag to accelerate motor 

; Set speed at minimum 

; energize door 

; one shot the forced reverse 

If we're learning the limits, 

Then don't bother with testing anything 

Look for lost postion 

If not, proceed as normal 

Look for lost postion 

If not, proceed as normal 



If this isn't our first operation when lost, 

; then ALWAYS head down 

; If we are below the lowest 
pass point, head up to see it 

; If our pass point number is set at -1, 
then go up to find the position 

; Otherwise, proceed normally 



SET THE DOWN POSITION STATE 



SET_DN_POS_STATE : 
di 
Id 
Id 
clr 
jr 



STATE, #DN_POSITION 
RampFlag, #STILL 
PowerLevel 
SET ANY 



load new state 

; Stop the motor at the FET ' s 



SET THE UP DIRECTION STATE 



SET UP DIR STATE: 



Id BLINKJU, #0FFH 

call LookForFlasher 

tm P2, #BLINK_PIN 

j r nz , SET_UP_NOBLINK 

Id BLINK_LO, #0FFH 

Id BLINK HI, #01H 



/Initially turn off blink 
;Test to see if flasher present 
;If the flasher is not present, 
;don't flash it 

;Turn on the blink timer 



SET_UP_NOBLINK: 
di 

Id RampFlag, #RAMPUP 

Id PowerLevel, #4 



Set the flag to accelerate to max. 
Start speed at minimum 

Page 86 of 97 



id 



STATE, #UP_DIRECTION 
SET ANY 



SET THE UP POSITION STATE 



SET_UP_POS_STATE : 
di 

Id STATE, #UP_POSITION 

Id RampFlag, #STILL 

clr PowerLevel 



Stop the motor at the FET's 



SET ANY STATE 



SET ANY: 



and P2M_SHADOW, #~BLINK_PIN 
Id P2M, P2M_SHAD0W 

and P2, #-BLINK_PIN 

cp PPOINT_DEB, #2 

ult, NoPrePPoint 

PassCounter, 110000000b 
PrePPointDone. 

PassCounter, #01 11111 lb 



^PrePPoint : 

*0 or 

m j r 

NoPrePPoint : 
and 

^PrePPointDone 



In 




(0 


Id 




Id 




di 




clr 


t : 


clr 




Id 


n ■ 


Id 




Id 


|d 


Id 


i I 


Id 




ei 




di 




cp 




jr 




push 




push 




Id 




Id 




sub 




sbc 




cp 




jr 




jr 




cp 




jr 


DoorlsShort 




Id 




jr 


DoorlsNorm: 




Id 



FirstRun, # OFFH 
BSTATE, STATE 

RPM_COUNT 
BRPM_COUNT 

AUTO_DELAY , #AUTO_REV_TIME 
BAUTO_DELAY, #AUTO_REV_TIME 
FORCE_I GNORE , #ONE_SEC 
B FORCE_ I GNORE , #ONE_SEC 
RPM PERIOD HI, # OFFH 



L_A_C, #070H 
uge, LearnModeMotcr 
LIM_TEST_KI 
LIM_TEST_LO 
LIM_TEST_HI, 
LIM_TEST_LO, 
LIM_TEST_LO, 
LIM_TEST_HI, 
LIM_TEST_HI , 
ugt, DoorlsNorm 
ult, DoorlsShort 
LIMJTEST_LO, #LOW (SHORTDOOR 
ugt, ' DoorlsNorm 



DN_LIMIT_HI 
DN_LIMIT_LO 
UP_LIMIT_LO 
UP_LIMIT_HI 
#HIGH (SHORTDOOR 



Turn on the blink output 

Turn off the light 

; Test for pass point being seen 
; If signal is low, none seen 

; Flag pass point signal high 
; Flag pass point signal low 



; One-shot the first run flag DONE IN MAIN 
set the backup state 

; clear the rpm counter 

set the . 5 second auto rev timer 

; set the force ignore timer to one sec 

; set the force ignore timer to one. sec 

; Set the RPM period to max. to start 

; Flush out any pending interrupts 

If we are in learn mode, 

don't test the travel distance 

; Save the limit tests 

! 

Test the door travel distance to 
see if we are shorter than 2 . 3M 



DoorSet : 

pop 
pop 
Id 
Id 

MotorTimeSet : 
ei 
clr 
clr 
Id 



MaxSpeed, #12 
DoorSet 

MaxSpeed, #20 



LIM_TEST_LO 
LIM_TEST_HI 

MOTOR__TIMER_HI, #HIGH (MOTORTIME) 
MOTOR TIMER LO, # LOW (MOTORTIME ) 



) ; If we are shorter than 2.3M, 

then set the max. travel speed to 2/3 
Else, normal speed 



Set the max. speed to 2/3 



; Restore the limit tests 



RADIO_CMD 
RPM_ACOUNT 
STACKREASON, REASON 



; one shot 

; clear the rpm active counter 
save the temp reason 
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Id 


STACKFLAG. #OFFH 


TURN ON LIGHT 




call 


SetVarLight 


tm 


PO, #LIGHT_ON 


jr 


nz, lighton 


lightoff : 




clr 


MOT DEL 


lighton: 




ret 





; set the flag 

; Set the worklight to the proper value 
If the light is on skip clearing 



; clear the motor delay 



LearnModeMotor : 

Id MaxSpeed, #12 ; Default to slower max. speed 

Id MOTOR_TIMER_HI, #HIGH ( LEARNT IME) 

- Id MOTOR_TIMER_LO, # LOW (LEARNT IME) 

jr MotorTimeSet ; set door to longer run for learn 



THIS IS THE MOTOR RPM INTERRUPT ROUTINE 



RPM: 

push 
srp 

l=* id 

;Z Id 

'2 tm 
h jr 
B®4TIMEERROR 
tm 
jr 

decw 
R'PMTIMEOK: 
cp 

jr 
tm 

jr 



□ 

E 



rp 

#RPM_GROUP 

rpm_temp_of , T0_OFLOW 
rpm_temp_hi , TOEXT 
rpm_temp_lo, TO 
IRQ, #00010000B 
z, RPMTIMEOK 

rpm_temp_lo, #10000000B 
z, RPMTIMEOK 
rpm_temp_hiword 

RPM_FILTER, #128 
ult, RejectTheRPM 
P3, #00000010B 
nz, RejectTheRPM 



BffMIsGood: 
i=7 and 



imr, #11111011b 
#03 



Id divcounter, 
DivideRPMLoop : 
rcf 

rrc rpm_teir.p_of 

r r c rpm_t emp_h i 

rrc rpm_temp_lo 

djnz divcounter, 



; save current pointer 

; point to these reg_. 

; Read the 2nd extension 

; read the timer extension 

; read the timer 

; test for a pending interrupt 

; if not then time ok 

; test for timer reload 

; if no reload time is ok 

; if reloaded then dec the hi to resync 

; Signal must have been high for 3 ms before 

; the pulse is considered legal 

; If the line is sitting high, 

; then the falling edge was a noise pulse 



turn off the interupt for up to 500uS 

Set to divide by 8 (destroys value in RPM FILTER) 



Reset the carry 

Divide the number by 8 so that 
it will always fit within 16 bits 

DivideRPMLoop ; Loop three times (Note: This clears RPM_FILTER) 



Id 
Id 
sub 
sbc 

Id 
Id 

cp 
jr 



TULS: 
INCRPM: 



inc 

inc 



SKIPC: 

inc 

t-, 

jr 
cp 

jr 

UpTimeOut : 



rpm_period_lc, rpm_past_lo ; 

rpm_period_hi, rpm_past_hi ; 

rpm_period_lc, rpm_temp_lo ; 

r pm_pe r i od_h i , rpm_ t emp_h i ; 

rpm_j>ast_lo, rpm_temp_lo 
rpm_past_hi , rpm_temp_hi 

rpm_period_hi, #12 
ult, SKIPC 



RPM_COUNT 
BRPM_COUNT 

RPM_ACOUNT 
RampFlag, #RAM?U? 
z, MaxTimeOut 
STATE , # DN_D I RECT I ON 
z, DownTimeOut 



find the period of the last pulse 



Store the current time for the 
next edge capture 

test for a period of at least 6.144mS 

; if the period is less then skip counting 

; increase the rpm count 
; increase the rpm count 

; increase the rpm count 
; If we're ramping the speed up, 
then -set the timeout at max. 

; If we're traveling down, 

; then set the timeout from the down force 
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Id 

rcf 

rrc 

add 

jr 

MaxTimeOut : 
Id 
jr 

Down Time Out : 
Id 
rcf 
rrc 
add 

GotTimeOut : 
Id 
ei 



rpm_t ime_out , UP_FORCE_HI 
#2 



rpm_t ime_out 
rpm_t ime_out 
GotTimeOut 



. rpm_t ime_out , 
GotTimeOut 



#125 



rpm time out,DN FORCE HI 



rpm_t ime_out 
rpm_t ime_out , 



#2 



Set the RPM timeout to be equal to the up force setting 

; Divide by two to account 
for the different prescalers 

; Round up and account for free-running prescale 



Set the RPM timeout to be 500ms 



Set the RPM timeout to be equal to the down force setting 

; Divide by two to account 
for the different prescalers 

; Round up" and account for free-running prescale 



BRPM_TIME_OUT, rpm_time_out ; Set the backup to the same value 



Position Counter 

Position is incremented when going down and decremented when 
going up. The zero position is taken to be the upper edge of the pass 
point signal (i.e. the falling edge in the up direction, the rising edge in 
the down direction) 



cp STATE, #UP_DIRECTION 

jr z, DecPos 

cp STATE, #STOP 

jr z, DecPos 

cp STATE, #UP_POSITION 

jr z, DecPos 



Test for the proper direction of the counter 



jJIncPos : 



mew 
cp 



: "BnPPoint : 



or 



POSITION 
PPOINT_DEB, #2 
ult, NoDnPPoint 



PassCounter, #10000000b 
CtrDone 



Test for pass point being seen 
If signal is low, none seen 



Mark pass point as currently high 



NoDnPPoint : 



PassCounter, 10000000b 
z, PastDnEdge 



L_A_C, #07 4H 

nz , Norma IDownEdge 



tm 
jr 

At DnEdge : 
cp 
j r 

LearnDownEdge : 
di 

sub UP_LIMIT_LO, POSITION_LO 
sbc UP_LIMIT_HI, POSITION_HI 
dec PassCounter 
jr Lowes tl 

Norma IDownEdge : 

dec PassCounter 

tm PassCounter, #01111111b 

jr nz, NotLowestl 



Lowestl : 
di 
clr 

Id 
ei 

NotLowestl : 

jr 
Id 
clr 

DontResetWall3 : 



POSITION__HI 

POSITION LO, #1 



STATUS, SRSS7A7US 
z, DontResetWal 13 
STATUS, #WALLOFF 
VAC FLASH 



; Test for pass point seen before 
If not, then we're past the edge 

Test for learning limits 
if not, treat normally 



Set the up position higher 

; Count pass point as being seen 
; Clear the position counter 

; Mark as one pass point closer to floor 

; Test for lowest pass point 

; If not, don't zero the position counter 



Set the position counter back to zero 



Test for in RS232 mode 
If so, don't blink the LED 
Blink the LED for pass point 
Set the turn-off timer 
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PastDnEdge : 
NoUpPPoint: 
and 
jr 



PassCounter, #01111 111b 
CtrDone 



; Clear the flag for pass point high 



DecPos : 



decw 

cp 

jr 

UpPPoint : 

tm 

jr 

AtUpEdge: 
tm 
jr 

Lowest 2 : 
di 
clr 
clr 
13 ei 
iagtLowest2: 

i^i Cp 

^ jr 

T ld 
M clr 
DontResetWa 

\i c p 

jr 

ld 

QstUpEdge : 



POSITION 
PPOINT_DEB, #2 
ult, NoUpPPoint 



PassCounter, #10000000b 
nz, PastUpEdge 

PassCounter, #0111111 lb 
nz, NotLowest2 



POSITION_HI 
POSITION LO 



STATUS, #RSSTATUS 
z, DontResetWall2 
STATUS, #WALLOFF 
VACFLASH 
112: 

PassCounter 
PassCounter, FirstRun 
ule, PastUpEdge 
PassCounter, FirstRun 

PassCounter, #10000000b 



dtrDone : 
|*£jectTheRPM: 



pop 
iret 



rp 



Test for pass point being seen 
If signal is low, none seen 



; Test for pass point seen before 

; If so, then we're past the edge 

; Test for~lowest pass point 

; If not, don't zero the position counter 



Set the position counter back to zero 



Test for in RS232 mode 
If so, don't blink the LED 
Blink the LED for pass point 
Set the turn-off timer 

Mark as one pass point higher above 
Test for pass point above max. value 
If not, we're fine 

Otherwise, correct the pass counter 
Set the flag for pass point high before 



; return the rp 
; return 



THIS IS THE SWITCH TEST SUBROUTINE 
STATUS 

0 COMMAND TEST 

1 => WORKLIGHT TEST 

2 => VACATION TEST 

3 => CHARGE 

4 -> RSSTATUS -- In RS232 mode, don't scan for switches 

5 => WALLOFF — Turn off the wall control LED 

SWITCH DATA 

0 => OPEN 

1 => COMMAND CMD_SW 

2 => WORKLIGHT LIGHT_SW 
4 => VACATION VAC SW 



switches : 

ei 

;4-22-97 

CP LIGHT_DE3, #0FFH ; is the light button being -held? 

JR NZ, NotHeldDown ;if hot debounced, skip long hold 
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CP 
JR 
CP 
JR 
LD 

JR 

NotHeldDown: 

CLR 
HeldDown: 



EnableWorkLight, iOTlOOOOOB ;has the 10 sec. already passed? 
GE, HeldDown 

EnableWorkLight 4 , #01010000B 
LT, HeldDown 

EnableWorkLight , #10000000B ;when debounce occurs, set register 

;to initiate e2 write in mainloop 

HeldDown 
EnableWorkLight 



and SW_DATA, #LIGHT_SW 

cp STATUS, #WALLOFF 

jp ugt, start 

jr 2, NoWailCtrl 

cp STATUS, SRSSTATUS 

jr z, NOT FLASHED 

cp STATUS, #3 

jp z, charge 

cp STATUS, #2 

j p z , VACAT I ON_TE ST 

cp STATUS, #1 

jp z,WORKLIGHT_TEST 



£g)MMAND_TEST: 
*f? cp 



D r 

inc 
cp 

!"? ir. 
I- and 
: or 

*r- clr 
IsOT FLASHED: 
id ret 



VACFLAG, #00H 

z, COMMAND_TESTl 

VAC FLASH 
- VACFLASH, #10 
U 1 t , COMMAN D_TE ST 1 
p3, #-CHARGE_SW 
p3, #DIS_SW 
VACFLASH, #60 
nz, NOTFLASHED 
VACFLASH 



Clear all switches except for worklight 

; Test for illegal status 

; if so reset 
Turn off wall control state 

; Check for in RS232 mode 
If so, skip the state machine 

; test for illegal number 

; if it is 3 then goto charge 

; test for vacation 

; if so then jump 

; test for worklight 

; if so then jump 

; else it id command 

test for vacation mode 

; if not vacation skip flash 

; increase the vacation flash timer 
test the vacation flash period 

; if lower period skip flash 

; turn off wall switch 

; enable discharge 
test the time delay for max 

; if the flash is not done jump and ret 

; restart the timer 

; return 



ifJoWallCtrl 
*~ and 
or 
inc 
cp 

j r 
Id 
Id 

KeepOff : 

ret 



P3, #-CHARGE_SW 

P3, #DIS_SW 

VACFLASH 

VACFLASH, #50 

ult, KeepOff 

STATUS, # CHARGE 

SWITCH DELAY , #CMD DEL EX 



Turn off the circuit 

Update the off time 
If off time hasn't expired, 
keep the LED off 

; Reset the wall control 
Reset the charge timer 



COMMAND TEST1: 



tm 


pO, #SWITCHES1 


j ~- 


nz, CMDOPEN 


tm 


PO, ISWITCHES2 




n2 1 CMDOPEN 


CMDCLOSED: 




call 


DECVAC 


call 


DECLIGHT 


cp 


CMD DEB, #0FFH 


jr 


2, SKIPCMDINC 


di 




inc 


CMD DEB 


inc 


BCMD_DE5 


ei 




SKIPCMDINC: 




cp 


CMD_DE5 / #CMu_I 


jr 


nz, CMDEXIT 


call 


CmdSet 


CMDEXIT: 





; command sw pressed? 
; open command 

; test the second command input 

; closed command 

decrease vacation debounce 

; decrease light debounce 
; test for the max number 

if at the max skip inc 

; increase the debouncer 
; increase the debouncer 



; if not made then exit 
Set the command switch 
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or 
and 
Id 
Id 

CMDDELEXIT: 
r t 



p3, #CHARGE_SW 
p3, #-DIS_SW 

SWITCH_DELAY, #CMD_DEL_EX 
STATUS, # CHARGE 



; turn on the charge system 

set the delay time to 8mS 
; charge time 



CmdSet : 

cp 
jr 
jr 

call 
jr 

RegCmdMake : 
cp 
jr 

Norma lCmd : 
di 
Id 
Id 
cp 
jr 

push 
srp 
call 
clr 
pop 
or 

call 
S^DMAKEDONE: 
]SKIP_LEARN: 
Id 
Id. 
ei 
ret 



cmd : 



|~1 



L_A_C, #07 OH 
ul t , RegCmdMa ke 
ugt, LeaveLAC 
SET_UP_NOBLINK 
CM DMAKE DON E 

LEARN DB , #0FFH 
z, GoIntoLAC 



LAST_CMD, #055H 
SW_DATA, #CMD_SW 
AUXLEARNSW, #100 
ugt , SKI P_LEARN 
RP 

#LEARNEE_GRP 
SET LEARN 
SW_DATA 
RP 

p0, #LIGHT_ON 
TURN ON LIGHT 



CMD_DEB, # OFFH 
BCMD DEB, # OFFH 



Test for in learn limits mode 

; If not, treat as normal command 

If learning, command button exits 
; Set the up direction state 



; Test for learn button held 
If so, enter the learn mode 



set the last command as command 
set the switch data as command 
test the time 



; set the learn mode 
; clear the cmd 

turn on the light 

; turn on the light 



set the debouncer to ff one shot 
set the debouncer to ff one shot 



=LeaveLAC : 

call 
jr 



U 



L_A_C 

ledport, #ledh 
SET_STOP_STATE 
CMDMAKE DON E 



; Exit the learn mode 
turn off the LED for program mode 



GoIntoLAC : 
Id - 
clr 
clr 
Id 
Id 
jr 



L_A_C, #07 OH 
FAULT CODE 
CodeFlag 
LEARNT, # OFFH 
ERASET, #0FFH 
CMDMAKE DONE 



Starr the learn limits mode 

; Clear any faults that exist 
; Clear the regular learn mode 

Turn off the learn timer 

Turn off the erase timer . 



CMDOPEN : 

and 

or 

Id 

DELLOOP: 

dec 
jr 
tm 
jr 

call 
call 
call 
Id 

ir 



p3, #-CHARGE_SK 
p3, #DIS_SW 
DELAYC, #16 

DELAYC 

nz, DELLOOP 

p0, #SWITCHES1 

nz, TESTWL 

DECVAC 

DECLIGHT 

DECCMD 

AUX LEARN SW , # 0 FFH 
CMDEXIT 



command switch open 
turn off charging sw 
enable discharge 
set the time delay 



; loop till delay is up 
; command, line still high 
; if so return later 
if not open line dec all debouncers 



turn off the aux learn switch 
and exit 



TESTWL: 



Id 
ret 



STATUS, #WL TEST 



set to tesT 
return 



for a worklight 
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WORKLIGHT TEST: 



tm 
jr 

call 
call 
cp 
jr 

inc 

SKIPLIGHTINC: 
cp 
j* 

call 



pO, iSWITCHESl 
nz,TESTVAC2 
DECVAC 
DECCMD 

LIGHT_DEB, #OFFH 
z, SKIPLIGHTINC 
LIGHT DEB 



LIGHT_DEB, #LIGHT_MAKE 

nz, CMDEXIT 

LightSet 

CMDEXIT 



; command line still high 

; exit setting to test for vacation 
decrease the vacation debouncer 
and the command debouncer 

; test for the max 

; if at the max skip inc 

; inc debouncer 

; test for the light make 

; if not then recharge delay 

; Set the light debouncer 

; then recharge 



LightSet : 
Id 
Id 
cp 
jr 

■;~ clr 
^ ret 



LIGHT_DEB,#OFFK 
SW_DATA, #LIGHT_SW 
RRTO, #RDROPTIME 
ugt , CMDEXIT 
AUXLEARNSW 



; set the debouncer to max 
set the data as worklight 

; test for code reception 

; if not then skip the seting of flag 

; start the -learn timer 



3SESTVAC2 : 
« Id 

:5 id 

bf GHTDELEXIT : 

\P- ret 



STATUS, #VAC_TEST 
switch_delay , #VAC_DEL 



set the next test as vacation 
set the delay 

return 



MACATIONJTEST: 

' s djnz switch_delay, VACDELEXIT 



i=J tm pO, #SWITCHES1 

.£ jr n z , EX I T_ERROR 

|i| call DECLIGHT 

!""! call DECCMD 

W cp VAC_DEB, #OFFH 

\J jr z,VACINCSKIP 

inc .VAC_DEE 
VACINCSKIP: 

cp VACFLAG,#OCH 

j r z , VACOUT 



VACIN: 



cp VAC_DEB f #VAC_MAKE_IN 

j r n z , VAC AT I ON_EX I T 

call VacSet 

jr VACATION_EXIT 



; command line still high 

; exit with a error setting open state 

; decrease the light debouncer 
decrease the command debouncer 

; test for the max 

; skip the incrementing 

; inc vacation debouncer 

test for vacation mode 

; if not vacation use out time 

; test for the vacation make point 
; exit if not made 



VACOUT : 



cp VAC_DEB # #VAC_MAKE_OUT 

j r n z , VACAT I ON_EX I T 

call Vac Sen 

jr VACATION_EXIT 



; test for the vacation make point 
; exit if not made 

Forget vacation mode 



VacSet: 



Id VAC_DEB , #CFFH 

cp AUXLEARNSW, #100 

jr ugt, SKIP_LEARNV 

push RP 

S rp # LEARNEE_GRP 

call SETLEARN 

pop RF 

or" pO, #LIGHT_ON 

cell TURN_OK_LZGHT 
ret 



; set vacation debouncer to max 
; test the time 



; set the learn mode 
Turn on the worklight 



SKI P_LEARNV : 

Id VAC CHANGE, #0AAK 



set the toggle data 
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cp RRTO, #RDROPTIME 

jr ugt, VACATION_EXIT 

clr AUXLEARNSW 
VACATION EXIT: 



Id 
Id 

VACDELEXIT: 
ret 



SWITCH_DELAY, #VAC_DEL_EX 
STATUS, # CHARGE 



; test for code reception 

; if not then skip the seting of flag 

; start the learn timer 

set the delay 

; set the next test as charge 



EXIT_ERROR: 
call 
call 
call 
Id 
Id 
ret 



DECCMD 
DECVAC 
DECLIGHT 

SWITCH_DELAY, 8VAC_DEL_EX 
STATUS, #CHARGE 



decrement the debouncers 



set the delay 

; set the next test as charge 



charge : 





or 


p3,#CHARGE SW 




* 




and 


p3, #-DIS_SW 








dec 


SWITCH_DELAY 






i i 


jr 


nz, charge_ret 








Id 


STATUS, #CMD_TEST 








arge_ret ; 










ret 









u< 

gECCMD: 

jr 

* di 

itJ dec 
.C dec 

III ei 
^SKIPCMDDEC: 

|^ call 
""DECCMDEXIT: 
ret 



CMD_DEB, #00H 
z, SKIPCMDDEC 

CMD_DEE 
BCMD DEB 



CMD_DEB, #CMD_BREAK 
nz, DECCMDEXIT 
CmdRel 



; test for the min number 
; if at the min skip dec 

; decrement debouncer 
; decrement debouncer 



; if not at break then exit 

; if not break then exit 



and exit 



CmdRe 1 : 

cp ' 
jr 

call 
NormCmdBreak : 
di 
clr 
clr 
ei 
ret 



L_A_C, *070H 

nz, NormCmdBreak 

SET STOP STATE 



CMD_DEB 
BCMD DEB 



Test for in learn mode 

; If not, treat normally 
; Stop the door 



reset the debouncer 
reset the debouncer 



DECLIGHT: 
cp 
jr 
dec 

SKIPLIGHTDEC: 
cp 
jr 

clr 

DECLIGHTEXIT: 
ret 



LIGHT__DEB, #00H 
z, SKIPLIGHTDEC 
LIGHT_DEB 

LIGHT_DEB, # L I GHT_BREAK 
nz, DECLIGHTEXIT 
LIGHT DEB 



; test for the min number 

; if at the min skip dec 

; decrement debouncer 

; if not at break then exit 

; if not break then exit 

; reset the debouncer 

; and exit 



DECVAC : 



VAC DEB, #0 OH 



test for the min number 
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dec 
SKIPVACDEC: 
cp 
jr 

DECVACIN : 
CP 
jr 



z, SKIPVACDEC 
VAC_DEB 

VAC FLAG, #00H 
z, DECVACOUT 

VAC_DEB, # V AC_BREAK_ I N 
nz, DECVACEXIT 
C LEAR VAC DE B 



if at the min skip dec 

; decrement debouncer 

test for vacation mode 

; if not vacation use out time 

; test for the vacation break point 
; exit if not 



DECVACOUT : 
cp 
jr 

C LEAR VAC DEB : 
clr 

DECVACEXIT: 
ret 



VAC_DEB, #VAC_BREAK_OUT 
nz, DECVACEXIT 

VAC DEB 



; test for the vacation break point 

; exit if not 

; reset the debouncer 

; and exit 



FORCE TABLE 



force table: 



CQ 0: 

o 
In 



. byte 


nn nu 


U OtJn , 


U t>Cn 


• byte 


uuun , 


u Don , 


U OV-ri 


• byte 




uwun , 




. byte 


000H, 


0 6FH, 


08EH 


. byte 


000H, 


071H, 


OBEH 


. byte 


000H, 


074H, 


004H 


. bvte 


000H, 


076H, 


062H 


. byte 


000H, 


078H, 


ODAH 


. byte 


000H, 


07BH, 


06CH 


. byte 


000H, 


07EH, 


01BH 


. byte 


000H, 


080H, 


0E8H 


.byte 


OOOH, 


083H, 


0D6H 


.byte 


000H, 


086H, 


09BH 


.byte 


OOOH, 


089H, 


07 FH 


.byte 


OOOH, 


08CH, 


084H 


. byte 


OOOH, 


08FH, 


OABH 


.byte 


OOOH, 


092H, 


0F7H 


.byte 


OOOH, 


096H, 


0 6BH 


. byte 


OOOH, 


09AH, 


009H 


. byte 


OOOH, 


0 9DH, 


0D5H 


. byte 


OOOH, 


0A1H, 


0D2H 


.byte 


OOOH, 


0A6H, 


004H 


. byte 


OOOH, 


OAAH, 


076H 


. byte 


OOOH, 


OAFH, 


027K 


.byte 


OOOH, 


0B4H, 


01CH 


. byte 


OOOH, 


0B9H, 


05BH 


.byte 


OOOH, 


OBEH, 


OEBH 


. byte 


OOOH, 


0C4H, 


0D3H 


.byte 


OOOH, 


OCBH, 


01BH 


.byte 


OOOH, 


0D1H, 


OCDH 


.byte 


OOOH, 


0D8H, 


0F4H 


.byte 


OOOH, 


OEOH, 


09CH 


.byte 


OOOH, 


0E7H, 


01CH 


.byte 


OOOH, 


OEDH, 


OFFH 


.byte 


OOOH, 


0F5H, 


04 FH 


.byte 


OOOH, 


OFDH, 


015H 


.byte 


001H, 


005H, 


05DH 


.byte 


001K, 


OOEH, 


035H 


. byte 


OOiH, 


017H, 


OABH 


.byte 


OOIH, 


021H, 


0D2H 


. byte 


OOIH, 


02CH, 


OBBK 


.byte 


OOIH, 


038H, 


080H 


.byte 


001K, 


045H, 


03 AH 


.byte 


OOIH, 


053H, 


008H 


.byte 


OOIH, 


062H, 


010H 
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.byte 


OOIH, 


072H, 


07 DH 


.byte 


OOIH, 


084H, 


083H 


.byte 


OOIH, 


098H, 


061H 


.byte 


001H, 


OAEH, 


064H 


.byte 


OOIH, 


0C6H, 


0E8H 


.byte 


OOIH, 


0E2H, 


062H 


.byte 


002H, 


OOIH, 


065H 


.byte 


002H, 


024H, 


OAAH 


. byte 


002H, 


04DH, 


024H 


.byte 


002H, 


07CH, 


010H 


.byte 


002H, 


0B3H, 


01BH 


.byte 


002H, 


0F4H, 


094H 


.byte 


003H, 


043H, 


0C1H 


.byte 


003H, 


0A5H, 


071H 


. byte 


004H, 


020H, 


OFCH 


.byte 


004H, 


0C2H, 


038H 


. byte 


005H, 


09DH, 


080H 


. byte 


013H, 


012H, 


ODOH 


f_63: .byte 


013H, 


012H, 


ODOH 


SIM TABLE: 








*□ 


. WORD 


OOOOOH 

W \J \J \J ii 






. WORD 


OOOOOP 






. WORD 


oooook 




it: 


. WORD 


nnnnnw 






. WORD 


nnnnhn 
uuuuun 




? ^ 

! =r 


. WORD 


Ofionrm 

vJUU \JKJTi 




Ejl 


. WORD 


nnnnrm 






.WORD 


OOOOOH 




13 


.WORD 


OOOOOH 






.WORD 


OOOOOH 






.WORD 


OOOOOH 




=# 


.WORD 


OOOOOH 






.WORD 


OOOOOH 




s 

c : 


.WORD 


OOOOOH 






.WORD 


OOOOOH 






.WORD 


OOOOOH 





5 _i 

g£TPEED_TABLE_50 : 



. BYTE 


40 


. BYTE 


34 


.BYTE 


32 


. BYTE 


30 


.BYTE 


28 


.BYTE 


27 


.BYTE 


25 


.BYTE 


24 


. BYTE 


23 


.BYTE 


21 


.BYTE 


20 


. BYTE 


19 


.BYTE 


17 


.BYTE 


16 


.BYTE 


15 


.BYTE 


13 


.BYTE 


12 


.BYTE 


10 


. BYTE 


8 


. BYTE 


6 


-BYTE 


0 




rs set to zero (proprietary table) 



SPEED TABLE 60: 



.BYTE 33 

.BYTE 29 

.BYTE 27 

.BYTE 25 
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• el IE 


23 


• 0 1 1 Ci 


22. 


• out 


21 


nvrr 


20 


nvrr 


19 


• ozTE 


18 


D VTr 


17 


. BYTE 


16 


ra v»nr 
. Oil E 


15 


. BYTE 


13 


.BYTE 


12 


-BYTE 


11 


. BYTE 


10 


- BYTE 


8 


.BYTE 


7 


. BYTE 


5 


.BYTE 


0 



; Fill 4 9 bytes of unused memory 

FILL10 

FILL10 
(□ FILL10 
,Q FILL10 
i~ FILL 
'~ FILL 
•P FILL 
13 FILL 

in fill • 

f~ - FILL 

H FILL 

- i=s . FILL 

i FILL 

c . 

ili 
w 
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